/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / packages / supercite.elc.z / supercite.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 33 3a 32 35 20 31 | 39 39 38 0a 3b 3b 3b 20 |:53:25 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 70 61 63 6b |s-20.3/l|isp/pack|
|000000a0| 61 67 65 73 2f 73 75 70 | 65 72 63 69 74 65 2e 65 |ages/sup|ercite.e|
|000000b0| 6c 0a 3b 3b 3b 20 65 6d | 61 63 73 20 76 65 72 73 |l.;;; em|acs vers|
|000000c0| 69 6f 6e 20 32 30 2e 34 | 20 22 45 6d 65 72 61 6c |ion 20.4| "Emeral|
|000000d0| 64 22 20 58 45 6d 61 63 | 73 20 20 4c 75 63 69 64 |d" XEmac|s  Lucid|
|000000e0| 2e 0a 3b 3b 3b 20 62 79 | 74 65 63 6f 6d 70 20 76 |..;;; by|tecomp v|
|000000f0| 65 72 73 69 6f 6e 20 32 | 2e 32 35 20 58 45 6d 61 |ersion 2|.25 XEma|
|00000100| 63 73 3b 20 32 32 2d 4d | 61 72 2d 39 36 2e 0a 3b |cs; 22-M|ar-96..;|
|00000110| 3b 3b 20 6f 70 74 69 6d | 69 7a 61 74 69 6f 6e 20 |;; optim|ization |
|00000120| 69 73 20 6f 6e 2e 0a 3b | 3b 3b 20 74 68 69 73 20 |is on..;|;; this |
|00000130| 66 69 6c 65 20 75 73 65 | 73 20 6f 70 63 6f 64 65 |file use|s opcode|
|00000140| 73 20 77 68 69 63 68 20 | 64 6f 20 6e 6f 74 20 65 |s which |do not e|
|00000150| 78 69 73 74 20 69 6e 20 | 45 6d 61 63 73 20 31 39 |xist in |Emacs 19|
|00000160| 2e 0a 0a 28 69 66 20 28 | 61 6e 64 20 28 62 6f 75 |...(if (|and (bou|
|00000170| 6e 64 70 20 27 65 6d 61 | 63 73 2d 76 65 72 73 69 |ndp 'ema|cs-versi|
|00000180| 6f 6e 29 0a 09 20 28 6f | 72 20 28 61 6e 64 20 28 |on).. (o|r (and (|
|00000190| 62 6f 75 6e 64 70 20 27 | 65 70 6f 63 68 3a 3a 76 |boundp '|epoch::v|
|000001a0| 65 72 73 69 6f 6e 29 20 | 65 70 6f 63 68 3a 3a 76 |ersion) |epoch::v|
|000001b0| 65 72 73 69 6f 6e 29 0a | 09 20 20 20 20 20 28 73 |ersion).|.     (s|
|000001c0| 74 72 69 6e 67 2d 6c 65 | 73 73 70 20 65 6d 61 63 |tring-le|ssp emac|
|000001d0| 73 2d 76 65 72 73 69 6f | 6e 20 22 32 30 22 29 29 |s-versio|n "20"))|
|000001e0| 29 0a 20 20 20 20 28 65 | 72 72 6f 72 20 22 60 73 |).    (e|rror "`s|
|000001f0| 75 70 65 72 63 69 74 65 | 2e 65 6c 27 20 77 61 73 |upercite|.el' was|
|00000200| 20 63 6f 6d 70 69 6c 65 | 64 20 66 6f 72 20 45 6d | compile|d for Em|
|00000210| 61 63 73 20 32 30 22 29 | 29 0a 0a 28 6f 72 20 28 |acs 20")|)..(or (|
|00000220| 62 6f 75 6e 64 70 20 27 | 63 75 72 72 65 6e 74 2d |boundp '|current-|
|00000230| 6c 6f 61 64 2d 6c 69 73 | 74 29 20 28 73 65 74 71 |load-lis|t) (setq|
|00000240| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|00000250| 73 74 20 6e 69 6c 29 29 | 0a 0a 0a 28 62 79 74 65 |st nil))|...(byte|
|00000260| 2d 63 6f 64 65 20 22 c0 | c1 21 88 c2 c3 c4 c5 c6 |-code ".|.!......|
|00000270| c7 c8 c9 c8 ca 26 09 88 | c2 cb c4 cc c6 c7 c8 c3 |.....&..|........|
|00000280| 26 07 88 c2 cd c4 ce c6 | c7 c8 c3 26 07 88 c2 cf |&.......|...&....|
|00000290| c4 d0 c6 c7 c8 c3 26 07 | 88 c2 d1 c4 d2 c6 c7 c8 |......&.|........|
|000002a0| c3 26 07 87 22 20 5b 72 | 65 71 75 69 72 65 20 72 |.&.." [r|equire r|
|000002b0| 65 67 69 20 63 75 73 74 | 6f 6d 2d 64 65 63 6c 61 |egi cust|om-decla|
|000002c0| 72 65 2d 67 72 6f 75 70 | 20 73 75 70 65 72 63 69 |re-group| superci|
|000002d0| 74 65 20 6e 69 6c 20 22 | 53 75 70 65 72 63 69 74 |te nil "|Supercit|
|000002e0| 65 20 70 61 63 6b 61 67 | 65 22 20 3a 70 72 65 66 |e packag|e" :pref|
|000002f0| 69 78 20 22 73 63 2d 22 | 20 3a 67 72 6f 75 70 20 |ix "sc-"| :group |
|00000300| 6d 61 69 6c 20 6e 65 77 | 73 20 73 75 70 65 72 63 |mail new|s superc|
|00000310| 69 74 65 2d 66 72 61 6d | 65 73 20 22 53 75 70 65 |ite-fram|es "Supe|
|00000320| 72 63 69 74 65 20 28 72 | 65 67 69 29 20 66 72 61 |rcite (r|egi) fra|
|00000330| 6d 65 73 22 20 73 75 70 | 65 72 63 69 74 65 2d 61 |mes" sup|ercite-a|
|00000340| 74 74 72 20 22 53 75 70 | 65 72 63 69 74 65 20 61 |ttr "Sup|ercite a|
|00000350| 74 74 72 69 62 75 74 69 | 6f 6e 73 22 20 73 75 70 |ttributi|ons" sup|
|00000360| 65 72 63 69 74 65 2d 63 | 69 74 65 20 22 53 75 70 |ercite-c|ite "Sup|
|00000370| 65 72 63 69 74 65 20 63 | 69 74 69 6e 67 73 22 20 |ercite c|itings" |
|00000380| 73 75 70 65 72 63 69 74 | 65 2d 68 6f 6f 6b 73 20 |supercit|e-hooks |
|00000390| 22 48 6f 6f 6b 69 6e 67 | 20 69 6e 74 6f 20 73 75 |"Hooking| into su|
|000003a0| 70 65 72 63 69 74 65 22 | 5d 20 31 30 29 0a 28 63 |percite"|] 10).(c|
|000003b0| 75 73 74 6f 6d 2d 64 65 | 63 6c 61 72 65 2d 76 61 |ustom-de|clare-va|
|000003c0| 72 69 61 62 6c 65 20 27 | 73 63 2d 61 75 74 6f 2d |riable '|sc-auto-|
|000003d0| 66 69 6c 6c 2d 72 65 67 | 69 6f 6e 2d 70 20 27 74 |fill-reg|ion-p 't|
|000003e0| 20 22 2a 49 66 20 6e 6f | 6e 2d 6e 69 6c 2c 20 61 | "*If no|n-nil, a|
|000003f0| 75 74 6f 6d 61 74 69 63 | 61 6c 6c 79 20 66 69 6c |utomatic|ally fil|
|00000400| 6c 20 65 61 63 68 20 70 | 61 72 61 67 72 61 70 68 |l each p|aragraph|
|00000410| 20 61 66 74 65 72 20 69 | 74 20 68 61 73 20 62 65 | after i|t has be|
|00000420| 65 6e 20 63 69 74 65 64 | 2e 22 20 3a 74 79 70 65 |en cited|." :type|
|00000430| 20 27 62 6f 6f 6c 65 61 | 6e 20 3a 67 72 6f 75 70 | 'boolea|n :group|
|00000440| 20 27 73 75 70 65 72 63 | 69 74 65 29 0a 28 63 75 | 'superc|ite).(cu|
|00000450| 73 74 6f 6d 2d 64 65 63 | 6c 61 72 65 2d 76 61 72 |stom-dec|lare-var|
|00000460| 69 61 62 6c 65 20 27 73 | 63 2d 62 6c 61 6e 6b 2d |iable 's|c-blank-|
|00000470| 6c 69 6e 65 73 2d 61 66 | 74 65 72 2d 68 65 61 64 |lines-af|ter-head|
|00000480| 65 72 73 20 27 31 20 22 | 2a 4e 75 6d 62 65 72 20 |ers '1 "|*Number |
|00000490| 6f 66 20 62 6c 61 6e 6b | 20 6c 69 6e 65 73 20 74 |of blank| lines t|
|000004a0| 6f 20 6c 65 61 76 65 20 | 61 66 74 65 72 20 6d 61 |o leave |after ma|
|000004b0| 69 6c 20 68 65 61 64 65 | 72 73 20 68 61 76 65 20 |il heade|rs have |
|000004c0| 62 65 65 6e 20 6e 75 6b | 65 64 2e 5c 6e 53 65 74 |been nuk|ed.\nSet|
|000004d0| 20 74 6f 20 6e 69 6c 2c | 20 74 6f 20 75 73 65 20 | to nil,| to use |
|000004e0| 77 68 61 74 65 76 65 72 | 20 62 6c 61 6e 6b 20 6c |whatever| blank l|
|000004f0| 69 6e 65 73 20 68 61 70 | 70 65 6e 20 74 6f 20 6f |ines hap|pen to o|
|00000500| 63 63 75 72 20 6e 61 74 | 75 72 61 6c 6c 79 2e 22 |ccur nat|urally."|
|00000510| 20 3a 74 79 70 65 20 27 | 28 63 68 6f 69 63 65 20 | :type '|(choice |
|00000520| 28 63 6f 6e 73 74 20 3a | 74 61 67 20 22 6c 65 61 |(const :|tag "lea|
|00000530| 76 65 22 20 6e 69 6c 29 | 20 69 6e 74 65 67 65 72 |ve" nil)| integer|
|00000540| 29 20 3a 67 72 6f 75 70 | 20 27 73 75 70 65 72 63 |) :group| 'superc|
|00000550| 69 74 65 29 0a 28 63 75 | 73 74 6f 6d 2d 64 65 63 |ite).(cu|stom-dec|
|00000560| 6c 61 72 65 2d 76 61 72 | 69 61 62 6c 65 20 27 73 |lare-var|iable 's|
|00000570| 63 2d 63 69 74 61 74 69 | 6f 6e 2d 6c 65 61 64 65 |c-citati|on-leade|
|00000580| 72 20 27 22 20 20 20 20 | 22 20 22 2a 53 74 72 69 |r '"    |" "*Stri|
|00000590| 6e 67 20 63 6f 6d 70 72 | 69 73 69 6e 67 20 66 69 |ng compr|ising fi|
|000005a0| 72 73 74 20 70 61 72 74 | 20 6f 66 20 61 20 63 69 |rst part| of a ci|
|000005b0| 74 61 74 69 6f 6e 2e 22 | 20 3a 74 79 70 65 20 27 |tation."| :type '|
|000005c0| 73 74 72 69 6e 67 20 3a | 67 72 6f 75 70 20 27 73 |string :|group 's|
|000005d0| 75 70 65 72 63 69 74 65 | 2d 63 69 74 65 29 0a 28 |upercite|-cite).(|
|000005e0| 63 75 73 74 6f 6d 2d 64 | 65 63 6c 61 72 65 2d 76 |custom-d|eclare-v|
|000005f0| 61 72 69 61 62 6c 65 20 | 27 73 63 2d 63 69 74 61 |ariable |'sc-cita|
|00000600| 74 69 6f 6e 2d 64 65 6c | 69 6d 69 74 65 72 20 27 |tion-del|imiter '|
|00000610| 22 3e 22 20 22 2a 53 74 | 72 69 6e 67 20 63 6f 6d |">" "*St|ring com|
|00000620| 70 72 69 73 69 6e 67 20 | 74 68 69 72 64 20 70 61 |prising |third pa|
|00000630| 72 74 20 6f 66 20 61 20 | 63 69 74 61 74 69 6f 6e |rt of a |citation|
|00000640| 2e 5c 6e 54 68 69 73 20 | 73 74 72 69 6e 67 20 69 |.\nThis |string i|
|00000650| 73 20 75 73 65 64 20 69 | 6e 20 62 6f 74 68 20 6e |s used i|n both n|
|00000660| 65 73 74 65 64 20 61 6e | 64 20 6e 6f 6e 2d 6e 65 |ested an|d non-ne|
|00000670| 73 74 65 64 20 63 69 74 | 61 74 69 6f 6e 73 2e 22 |sted cit|ations."|
|00000680| 20 3a 74 79 70 65 20 27 | 73 74 72 69 6e 67 20 3a | :type '|string :|
|00000690| 67 72 6f 75 70 20 27 73 | 75 70 65 72 63 69 74 65 |group 's|upercite|
|000006a0| 2d 63 69 74 65 29 0a 28 | 63 75 73 74 6f 6d 2d 64 |-cite).(|custom-d|
|000006b0| 65 63 6c 61 72 65 2d 76 | 61 72 69 61 62 6c 65 20 |eclare-v|ariable |
|000006c0| 27 73 63 2d 63 69 74 61 | 74 69 6f 6e 2d 73 65 70 |'sc-cita|tion-sep|
|000006d0| 61 72 61 74 6f 72 20 27 | 22 20 22 20 22 2a 53 74 |arator '|" " "*St|
|000006e0| 72 69 6e 67 20 63 6f 6d | 70 72 69 73 69 6e 67 20 |ring com|prising |
|000006f0| 66 6f 75 72 74 68 20 61 | 6e 64 20 6c 61 73 74 20 |fourth a|nd last |
|00000700| 70 61 72 74 20 6f 66 20 | 61 20 63 69 74 61 74 69 |part of |a citati|
|00000710| 6f 6e 2e 22 20 3a 74 79 | 70 65 20 27 73 74 72 69 |on." :ty|pe 'stri|
|00000720| 6e 67 20 3a 67 72 6f 75 | 70 20 27 73 75 70 65 72 |ng :grou|p 'super|
|00000730| 63 69 74 65 2d 63 69 74 | 65 29 0a 28 63 75 73 74 |cite-cit|e).(cust|
|00000740| 6f 6d 2d 64 65 63 6c 61 | 72 65 2d 76 61 72 69 61 |om-decla|re-varia|
|00000750| 62 6c 65 20 27 73 63 2d | 63 69 74 61 74 69 6f 6e |ble 'sc-|citation|
|00000760| 2d 6c 65 61 64 65 72 2d | 72 65 67 65 78 70 20 27 |-leader-|regexp '|
|00000770| 22 5b 20 09 5d 2a 22 20 | 22 2a 52 65 67 65 78 70 |"[ .]*" |"*Regexp|
|00000780| 20 64 65 73 63 72 69 62 | 69 6e 67 20 63 69 74 61 | describ|ing cita|
|00000790| 74 69 6f 6e 20 6c 65 61 | 64 65 72 20 66 6f 72 20 |tion lea|der for |
|000007a0| 61 20 63 69 74 65 64 20 | 6c 69 6e 65 2e 5c 6e 54 |a cited |line.\nT|
|000007b0| 68 69 73 20 73 68 6f 75 | 6c 64 20 4e 4f 54 20 68 |his shou|ld NOT h|
|000007c0| 61 76 65 20 61 20 6c 65 | 61 64 69 6e 67 20 60 5e |ave a le|ading `^|
|000007d0| 27 20 63 68 61 72 61 63 | 74 65 72 2e 22 20 3a 74 |' charac|ter." :t|
|000007e0| 79 70 65 20 27 72 65 67 | 65 78 70 20 3a 67 72 6f |ype 'reg|exp :gro|
|000007f0| 75 70 20 27 73 75 70 65 | 72 63 69 74 65 2d 63 69 |up 'supe|rcite-ci|
|00000800| 74 65 29 0a 28 63 75 73 | 74 6f 6d 2d 64 65 63 6c |te).(cus|tom-decl|
|00000810| 61 72 65 2d 76 61 72 69 | 61 62 6c 65 20 27 73 63 |are-vari|able 'sc|
|00000820| 2d 63 69 74 61 74 69 6f | 6e 2d 72 6f 6f 74 2d 72 |-citatio|n-root-r|
|00000830| 65 67 65 78 70 20 27 22 | 5b 2d 2e 5f 61 2d 7a 41 |egexp '"|[-._a-zA|
|00000840| 2d 5a 30 2d 39 5d 2a 22 | 20 22 2a 52 65 67 65 78 |-Z0-9]*"| "*Regex|
|00000850| 70 20 64 65 73 63 72 69 | 62 69 6e 67 20 76 61 72 |p descri|bing var|
|00000860| 69 61 62 6c 65 20 72 6f | 6f 74 20 70 61 72 74 20 |iable ro|ot part |
|00000870| 6f 66 20 61 20 63 69 74 | 61 74 69 6f 6e 20 66 6f |of a cit|ation fo|
|00000880| 72 20 61 20 63 69 74 65 | 64 20 6c 69 6e 65 2e 5c |r a cite|d line.\|
|00000890| 6e 54 68 69 73 20 73 68 | 6f 75 6c 64 20 4e 4f 54 |nThis sh|ould NOT|
|000008a0| 20 68 61 76 65 20 61 20 | 6c 65 61 64 69 6e 67 20 | have a |leading |
|000008b0| 60 5e 27 20 63 68 61 72 | 61 63 74 65 72 2e 20 20 |`^' char|acter.  |
|000008c0| 53 65 65 20 61 6c 73 6f | 5c 6e 60 73 63 2d 63 69 |See also|\n`sc-ci|
|000008d0| 74 61 74 69 6f 6e 2d 6e | 6f 6e 6e 65 73 74 65 64 |tation-n|onnested|
|000008e0| 2d 72 6f 6f 74 2d 72 65 | 67 65 78 70 27 2e 22 20 |-root-re|gexp'." |
|000008f0| 3a 74 79 70 65 20 27 72 | 65 67 65 78 70 20 3a 67 |:type 'r|egexp :g|
|00000900| 72 6f 75 70 20 27 73 75 | 70 65 72 63 69 74 65 2d |roup 'su|percite-|
|00000910| 63 69 74 65 29 0a 28 63 | 75 73 74 6f 6d 2d 64 65 |cite).(c|ustom-de|
|00000920| 63 6c 61 72 65 2d 76 61 | 72 69 61 62 6c 65 20 27 |clare-va|riable '|
|00000930| 73 63 2d 63 69 74 61 74 | 69 6f 6e 2d 6e 6f 6e 6e |sc-citat|ion-nonn|
|00000940| 65 73 74 65 64 2d 72 6f | 6f 74 2d 72 65 67 65 78 |ested-ro|ot-regex|
|00000950| 70 20 27 22 5b 2d 2e 5f | 61 2d 7a 41 2d 5a 30 2d |p '"[-._|a-zA-Z0-|
|00000960| 39 5d 2b 22 20 22 2a 52 | 65 67 65 78 70 20 64 65 |9]+" "*R|egexp de|
|00000970| 73 63 72 69 62 69 6e 67 | 20 74 68 65 20 76 61 72 |scribing| the var|
|00000980| 69 61 62 6c 65 20 72 6f | 6f 74 20 70 61 72 74 20 |iable ro|ot part |
|00000990| 6f 66 20 61 20 6e 65 73 | 74 65 64 20 63 69 74 61 |of a nes|ted cita|
|000009a0| 74 69 6f 6e 2e 5c 6e 54 | 68 69 73 20 73 68 6f 75 |tion.\nT|his shou|
|000009b0| 6c 64 20 4e 4f 54 20 68 | 61 76 65 20 61 20 6c 65 |ld NOT h|ave a le|
|000009c0| 61 64 69 6e 67 20 60 5e | 27 20 63 68 61 72 61 63 |ading `^|' charac|
|000009d0| 74 65 72 2e 20 20 54 68 | 69 73 20 76 61 72 69 61 |ter.  Th|is varia|
|000009e0| 62 6c 65 20 69 73 5c 6e | 72 65 6c 61 74 65 64 20 |ble is\n|related |
|000009f0| 74 6f 20 60 73 63 2d 63 | 69 74 61 74 69 6f 6e 2d |to `sc-c|itation-|
|00000a00| 72 6f 6f 74 2d 72 65 67 | 65 78 70 27 20 62 75 74 |root-reg|exp' but|
|00000a10| 20 77 68 65 72 65 20 61 | 73 20 74 68 61 74 20 76 | where a|s that v|
|00000a20| 61 72 61 72 69 61 62 6c | 65 5c 6e 64 65 73 63 72 |arariabl|e\ndescr|
|00000a30| 69 62 65 73 20 62 6f 74 | 68 20 6e 65 73 74 65 64 |ibes bot|h nested|
|00000a40| 20 61 6e 64 20 6e 6f 6e | 2d 6e 65 73 74 65 64 20 | and non|-nested |
|00000a50| 63 69 74 61 74 69 6f 6e | 20 72 6f 6f 74 73 2c 20 |citation| roots, |
|00000a60| 74 68 69 73 20 76 61 72 | 69 61 62 6c 65 5c 6e 64 |this var|iable\nd|
|00000a70| 65 73 63 72 69 62 65 73 | 20 6f 6e 6c 79 20 6e 65 |escribes| only ne|
|00000a80| 73 74 65 64 20 63 69 74 | 61 74 69 6f 6e 20 72 6f |sted cit|ation ro|
|00000a90| 6f 74 73 2e 22 20 3a 74 | 79 70 65 20 27 72 65 67 |ots." :t|ype 'reg|
|00000aa0| 65 78 70 20 3a 67 72 6f | 75 70 20 27 73 75 70 65 |exp :gro|up 'supe|
|00000ab0| 72 63 69 74 65 2d 63 69 | 74 65 29 0a 28 63 75 73 |rcite-ci|te).(cus|
|00000ac0| 74 6f 6d 2d 64 65 63 6c | 61 72 65 2d 76 61 72 69 |tom-decl|are-vari|
|00000ad0| 61 62 6c 65 20 27 73 63 | 2d 63 69 74 61 74 69 6f |able 'sc|-citatio|
|00000ae0| 6e 2d 64 65 6c 69 6d 69 | 74 65 72 2d 72 65 67 65 |n-delimi|ter-rege|
|00000af0| 78 70 20 27 22 5b 3e 5d | 2b 22 20 22 2a 52 65 67 |xp '"[>]|+" "*Reg|
|00000b00| 65 78 70 20 64 65 73 63 | 72 69 62 69 6e 67 20 63 |exp desc|ribing c|
|00000b10| 69 74 61 74 69 6f 6e 20 | 64 65 6c 69 6d 69 74 65 |itation |delimite|
|00000b20| 72 20 66 6f 72 20 61 20 | 63 69 74 65 64 20 6c 69 |r for a |cited li|
|00000b30| 6e 65 2e 5c 6e 54 68 69 | 73 20 73 68 6f 75 6c 64 |ne.\nThi|s should|
|00000b40| 20 4e 4f 54 20 68 61 76 | 65 20 61 20 6c 65 61 64 | NOT hav|e a lead|
|00000b50| 69 6e 67 20 60 5e 27 20 | 63 68 61 72 61 63 74 65 |ing `^' |characte|
|00000b60| 72 2e 22 20 3a 74 79 70 | 65 20 27 72 65 67 65 78 |r." :typ|e 'regex|
|00000b70| 70 20 3a 67 72 6f 75 70 | 20 27 73 75 70 65 72 63 |p :group| 'superc|
|00000b80| 69 74 65 2d 63 69 74 65 | 29 0a 28 63 75 73 74 6f |ite-cite|).(custo|
|00000b90| 6d 2d 64 65 63 6c 61 72 | 65 2d 76 61 72 69 61 62 |m-declar|e-variab|
|00000ba0| 6c 65 20 27 73 63 2d 63 | 69 74 61 74 69 6f 6e 2d |le 'sc-c|itation-|
|00000bb0| 73 65 70 61 72 61 74 6f | 72 2d 72 65 67 65 78 70 |separato|r-regexp|
|00000bc0| 20 27 22 5b 20 09 5d 2a | 22 20 22 2a 52 65 67 65 | '"[ .]*|" "*Rege|
|00000bd0| 78 70 20 64 65 73 63 72 | 69 62 69 6e 67 20 63 69 |xp descr|ibing ci|
|00000be0| 74 61 74 69 6f 6e 20 73 | 65 70 61 72 61 74 6f 72 |tation s|eparator|
|00000bf0| 20 66 6f 72 20 61 20 63 | 69 74 65 64 20 6c 69 6e | for a c|ited lin|
|00000c00| 65 2e 5c 6e 54 68 69 73 | 20 73 68 6f 75 6c 64 20 |e.\nThis| should |
|00000c10| 4e 4f 54 20 68 61 76 65 | 20 61 20 6c 65 61 64 69 |NOT have| a leadi|
|00000c20| 6e 67 20 60 5e 27 20 63 | 68 61 72 61 63 74 65 72 |ng `^' c|haracter|
|00000c30| 2e 22 20 3a 74 79 70 65 | 20 27 72 65 67 65 78 70 |." :type| 'regexp|
|00000c40| 20 3a 67 72 6f 75 70 20 | 27 73 75 70 65 72 63 69 | :group |'superci|
|00000c50| 74 65 2d 63 69 74 65 29 | 0a 28 63 75 73 74 6f 6d |te-cite)|.(custom|
|00000c60| 2d 64 65 63 6c 61 72 65 | 2d 76 61 72 69 61 62 6c |-declare|-variabl|
|00000c70| 65 20 27 73 63 2d 63 69 | 74 65 2d 62 6c 61 6e 6b |e 'sc-ci|te-blank|
|00000c80| 2d 6c 69 6e 65 73 2d 70 | 20 27 6e 69 6c 20 22 2a |-lines-p| 'nil "*|
|00000c90| 49 66 20 6e 6f 6e 2d 6e | 69 6c 2c 20 70 75 74 20 |If non-n|il, put |
|00000ca0| 61 20 63 69 74 61 74 69 | 6f 6e 20 6f 6e 20 62 6c |a citati|on on bl|
|00000cb0| 61 6e 6b 20 6c 69 6e 65 | 73 2e 22 20 3a 74 79 70 |ank line|s." :typ|
|00000cc0| 65 20 27 62 6f 6f 6c 65 | 61 6e 20 3a 67 72 6f 75 |e 'boole|an :grou|
|00000cd0| 70 20 27 73 75 70 65 72 | 63 69 74 65 2d 63 69 74 |p 'super|cite-cit|
|00000ce0| 65 29 0a 28 63 75 73 74 | 6f 6d 2d 64 65 63 6c 61 |e).(cust|om-decla|
|00000cf0| 72 65 2d 76 61 72 69 61 | 62 6c 65 20 27 73 63 2d |re-varia|ble 'sc-|
|00000d00| 63 69 74 65 2d 66 72 61 | 6d 65 2d 61 6c 69 73 74 |cite-fra|me-alist|
|00000d10| 20 27 27 6e 69 6c 20 22 | 2a 41 6c 69 73 74 20 66 | ''nil "|*Alist f|
|00000d20| 6f 72 20 66 72 61 6d 65 | 20 73 65 6c 65 63 74 69 |or frame| selecti|
|00000d30| 6f 6e 20 64 75 72 69 6e | 67 20 63 69 74 69 6e 67 |on durin|g citing|
|00000d40| 2e 5c 6e 45 61 63 68 20 | 65 6c 65 6d 65 6e 74 20 |.\nEach |element |
|00000d50| 6f 66 20 74 68 69 73 20 | 6c 69 73 74 20 68 61 73 |of this |list has|
|00000d60| 20 74 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 20 66 | the fol|lowing f|
|00000d70| 6f 72 6d 3a 5c 6e 5c 6e | 20 20 20 28 49 4e 46 4f |orm:\n\n|   (INFO|
|00000d80| 4b 45 59 20 28 28 52 45 | 47 45 58 50 20 2e 20 46 |KEY ((RE|GEXP . F|
|00000d90| 52 41 4d 45 29 5c 6e 20 | 20 20 20 20 20 20 20 20 |RAME)\n |        |
|00000da0| 20 20 20 20 28 52 45 47 | 45 58 50 20 2e 20 46 52 |    (REG|EXP . FR|
|00000db0| 41 4d 45 29 5c 6e 20 20 | 20 20 20 20 20 20 20 20 |AME)\n  |        |
|00000dc0| 20 20 20 28 2e 2e 2e 29 | 29 29 5c 6e 5c 6e 57 68 |   (...)|))\n\nWh|
|00000dd0| 65 72 65 20 49 4e 46 4f | 4b 45 59 20 69 73 20 61 |ere INFO|KEY is a|
|00000de0| 20 6b 65 79 20 66 6f 72 | 20 60 73 63 2d 6d 61 69 | key for| `sc-mai|
|00000df0| 6c 2d 66 69 65 6c 64 27 | 2c 20 52 45 47 45 58 50 |l-field'|, REGEXP|
|00000e00| 20 69 73 20 61 20 72 65 | 67 75 6c 61 72 5c 6e 65 | is a re|gular\ne|
|00000e10| 78 70 72 65 73 73 69 6f | 6e 20 74 6f 20 6d 61 74 |xpressio|n to mat|
|00000e20| 63 68 20 61 67 61 69 6e | 73 74 20 74 68 65 20 49 |ch again|st the I|
|00000e30| 4e 46 4f 4b 45 59 27 73 | 20 76 61 6c 75 65 2e 20 |NFOKEY's| value. |
|00000e40| 20 46 52 41 4d 45 20 69 | 73 20 61 20 63 69 74 61 | FRAME i|s a cita|
|00000e50| 74 69 6f 6e 5c 6e 66 72 | 61 6d 65 2c 20 6f 72 20 |tion\nfr|ame, or |
|00000e60| 61 20 76 61 72 69 61 62 | 6c 65 20 63 6f 6e 74 61 |a variab|le conta|
|00000e70| 69 6e 69 6e 67 20 61 20 | 63 69 74 61 74 69 6f 6e |ining a |citation|
|00000e80| 20 66 72 61 6d 65 2e 22 | 20 3a 74 79 70 65 20 27 | frame."| :type '|
|00000e90| 28 72 65 70 65 61 74 20 | 28 6c 69 73 74 20 73 79 |(repeat |(list sy|
|00000ea0| 6d 62 6f 6c 20 28 72 65 | 70 65 61 74 20 28 63 6f |mbol (re|peat (co|
|00000eb0| 6e 73 20 72 65 67 65 78 | 70 20 28 63 68 6f 69 63 |ns regex|p (choic|
|00000ec0| 65 20 28 72 65 70 65 61 | 74 20 28 72 65 70 65 61 |e (repea|t (repea|
|00000ed0| 74 20 73 65 78 70 29 29 | 20 73 79 6d 62 6f 6c 29 |t sexp))| symbol)|
|00000ee0| 29 29 29 29 20 3a 67 72 | 6f 75 70 20 27 73 75 70 |)))) :gr|oup 'sup|
|00000ef0| 65 72 63 69 74 65 2d 66 | 72 61 6d 65 73 29 0a 28 |ercite-f|rames).(|
|00000f00| 63 75 73 74 6f 6d 2d 64 | 65 63 6c 61 72 65 2d 76 |custom-d|eclare-v|
|00000f10| 61 72 69 61 62 6c 65 20 | 27 73 63 2d 75 6e 63 69 |ariable |'sc-unci|
|00000f20| 74 65 2d 66 72 61 6d 65 | 2d 61 6c 69 73 74 20 27 |te-frame|-alist '|
|00000f30| 27 6e 69 6c 20 22 2a 41 | 6c 69 73 74 20 66 6f 72 |'nil "*A|list for|
|00000f40| 20 66 72 61 6d 65 20 73 | 65 6c 65 63 74 69 6f 6e | frame s|election|
|00000f50| 20 64 75 72 69 6e 67 20 | 75 6e 63 69 74 69 6e 67 | during |unciting|
|00000f60| 2e 5c 6e 53 65 65 20 74 | 68 65 20 76 61 72 69 61 |.\nSee t|he varia|
|00000f70| 62 6c 65 20 60 73 63 2d | 63 69 74 65 2d 66 72 61 |ble `sc-|cite-fra|
|00000f80| 6d 65 2d 61 6c 69 73 74 | 27 20 66 6f 72 20 64 65 |me-alist|' for de|
|00000f90| 74 61 69 6c 73 2e 22 20 | 3a 74 79 70 65 20 27 28 |tails." |:type '(|
|00000fa0| 72 65 70 65 61 74 20 28 | 6c 69 73 74 20 73 79 6d |repeat (|list sym|
|00000fb0| 62 6f 6c 20 28 72 65 70 | 65 61 74 20 28 63 6f 6e |bol (rep|eat (con|
|00000fc0| 73 20 72 65 67 65 78 70 | 20 28 63 68 6f 69 63 65 |s regexp| (choice|
|00000fd0| 20 28 72 65 70 65 61 74 | 20 28 72 65 70 65 61 74 | (repeat| (repeat|
|00000fe0| 20 73 65 78 70 29 29 20 | 73 79 6d 62 6f 6c 29 29 | sexp)) |symbol))|
|00000ff0| 29 29 29 20 3a 67 72 6f | 75 70 20 27 73 75 70 65 |))) :gro|up 'supe|
|00001000| 72 63 69 74 65 2d 66 72 | 61 6d 65 73 29 0a 28 63 |rcite-fr|ames).(c|
|00001010| 75 73 74 6f 6d 2d 64 65 | 63 6c 61 72 65 2d 76 61 |ustom-de|clare-va|
|00001020| 72 69 61 62 6c 65 20 27 | 73 63 2d 72 65 63 69 74 |riable '|sc-recit|
|00001030| 65 2d 66 72 61 6d 65 2d | 61 6c 69 73 74 20 27 27 |e-frame-|alist ''|
|00001040| 6e 69 6c 20 22 2a 41 6c | 69 73 74 20 66 6f 72 20 |nil "*Al|ist for |
|00001050| 66 72 61 6d 65 20 73 65 | 6c 65 63 74 69 6f 6e 20 |frame se|lection |
|00001060| 64 75 72 69 6e 67 20 72 | 65 63 69 74 69 6e 67 2e |during r|eciting.|
|00001070| 5c 6e 53 65 65 20 74 68 | 65 20 76 61 72 69 61 62 |\nSee th|e variab|
|00001080| 6c 65 20 60 73 63 2d 63 | 69 74 65 2d 66 72 61 6d |le `sc-c|ite-fram|
|00001090| 65 2d 61 6c 69 73 74 27 | 20 66 6f 72 20 64 65 74 |e-alist'| for det|
|000010a0| 61 69 6c 73 2e 22 20 3a | 74 79 70 65 20 27 28 72 |ails." :|type '(r|
|000010b0| 65 70 65 61 74 20 28 6c | 69 73 74 20 73 79 6d 62 |epeat (l|ist symb|
|000010c0| 6f 6c 20 28 72 65 70 65 | 61 74 20 28 63 6f 6e 73 |ol (repe|at (cons|
|000010d0| 20 72 65 67 65 78 70 20 | 28 63 68 6f 69 63 65 20 | regexp |(choice |
|000010e0| 28 72 65 70 65 61 74 20 | 28 72 65 70 65 61 74 20 |(repeat |(repeat |
|000010f0| 73 65 78 70 29 29 20 73 | 79 6d 62 6f 6c 29 29 29 |sexp)) s|ymbol)))|
|00001100| 29 29 20 3a 67 72 6f 75 | 70 20 27 73 75 70 65 72 |)) :grou|p 'super|
|00001110| 63 69 74 65 2d 66 72 61 | 6d 65 73 29 0a 28 63 75 |cite-fra|mes).(cu|
|00001120| 73 74 6f 6d 2d 64 65 63 | 6c 61 72 65 2d 76 61 72 |stom-dec|lare-var|
|00001130| 69 61 62 6c 65 20 27 73 | 63 2d 64 65 66 61 75 6c |iable 's|c-defaul|
|00001140| 74 2d 63 69 74 65 2d 66 | 72 61 6d 65 20 27 27 28 |t-cite-f|rame ''(|
|00001150| 28 62 65 67 69 6e 20 28 | 70 72 6f 67 6e 20 28 73 |(begin (|progn (s|
|00001160| 63 2d 66 69 6c 6c 2d 69 | 66 2d 64 69 66 66 65 72 |c-fill-i|f-differ|
|00001170| 65 6e 74 29 20 28 73 65 | 74 71 20 73 63 2d 74 6d |ent) (se|tq sc-tm|
|00001180| 70 2d 6e 65 73 74 65 64 | 2d 72 65 67 65 78 70 20 |p-nested|-regexp |
|00001190| 28 73 63 2d 63 69 74 65 | 2d 72 65 67 65 78 70 20 |(sc-cite|-regexp |
|000011a0| 22 22 29 20 73 63 2d 74 | 6d 70 2d 6e 6f 6e 6e 65 |"") sc-t|mp-nonne|
|000011b0| 73 74 65 64 2d 72 65 67 | 65 78 70 20 28 73 63 2d |sted-reg|exp (sc-|
|000011c0| 63 69 74 65 2d 72 65 67 | 65 78 70 29 20 73 63 2d |cite-reg|exp) sc-|
|000011d0| 74 6d 70 2d 64 75 6d 62 | 2d 72 65 67 65 78 70 20 |tmp-dumb|-regexp |
|000011e0| 28 63 6f 6e 63 61 74 20 | 22 5c 5c 28 22 20 28 73 |(concat |"\\(" (s|
|000011f0| 63 2d 63 69 74 65 2d 72 | 65 67 65 78 70 20 22 22 |c-cite-r|egexp ""|
|00001200| 29 20 22 5c 5c 29 22 20 | 28 73 63 2d 63 69 74 65 |) "\\)" |(sc-cite|
|00001210| 2d 72 65 67 65 78 70 20 | 73 63 2d 63 69 74 61 74 |-regexp |sc-citat|
|00001220| 69 6f 6e 2d 6e 6f 6e 6e | 65 73 74 65 64 2d 72 6f |ion-nonn|ested-ro|
|00001230| 6f 74 2d 72 65 67 65 78 | 70 29 29 29 29 29 20 28 |ot-regex|p))))) (|
|00001240| 22 5e 5b 20 09 5d 2a 24 | 22 20 28 69 66 20 73 63 |"^[ .]*$|" (if sc|
|00001250| 2d 63 69 74 65 2d 62 6c | 61 6e 6b 2d 6c 69 6e 65 |-cite-bl|ank-line|
|00001260| 73 2d 70 20 28 73 63 2d | 63 69 74 65 2d 6c 69 6e |s-p (sc-|cite-lin|
|00001270| 65 29 20 28 73 63 2d 66 | 69 6c 6c 2d 69 66 2d 64 |e) (sc-f|ill-if-d|
|00001280| 69 66 66 65 72 65 6e 74 | 20 22 22 29 29 29 20 28 |ifferent| ""))) (|
|00001290| 73 63 2d 72 65 66 65 72 | 65 6e 63 65 2d 74 61 67 |sc-refer|ence-tag|
|000012a0| 2d 73 74 72 69 6e 67 20 | 28 69 66 20 28 73 74 72 |-string |(if (str|
|000012b0| 69 6e 67 3d 20 73 63 2d | 72 65 66 65 72 65 6e 63 |ing= sc-|referenc|
|000012c0| 65 2d 74 61 67 2d 73 74 | 72 69 6e 67 20 22 22 29 |e-tag-st|ring "")|
|000012d0| 20 28 6c 69 73 74 20 27 | 63 6f 6e 74 69 6e 75 65 | (list '|continue|
|000012e0| 29 20 6e 69 6c 29 29 20 | 28 73 63 2d 74 6d 70 2d |) nil)) |(sc-tmp-|
|000012f0| 64 75 6d 62 2d 72 65 67 | 65 78 70 20 28 73 63 2d |dumb-reg|exp (sc-|
|00001300| 63 69 74 65 2d 63 6f 65 | 72 63 65 2d 64 75 6d 62 |cite-coe|rce-dumb|
|00001310| 2d 63 69 74 65 72 29 29 | 20 28 73 63 2d 74 6d 70 |-citer))| (sc-tmp|
|00001320| 2d 6e 65 73 74 65 64 2d | 72 65 67 65 78 70 20 28 |-nested-|regexp (|
|00001330| 73 63 2d 61 64 64 2d 63 | 69 74 61 74 69 6f 6e 2d |sc-add-c|itation-|
|00001340| 6c 65 76 65 6c 29 29 20 | 28 73 63 2d 74 6d 70 2d |level)) |(sc-tmp-|
|00001350| 6e 6f 6e 6e 65 73 74 65 | 64 2d 72 65 67 65 78 70 |nonneste|d-regexp|
|00001360| 20 28 73 63 2d 63 69 74 | 65 2d 63 6f 65 72 63 65 | (sc-cit|e-coerce|
|00001370| 2d 63 69 74 65 64 2d 6c | 69 6e 65 29 29 20 28 73 |-cited-l|ine)) (s|
|00001380| 63 2d 6e 65 73 74 65 64 | 2d 63 69 74 61 74 69 6f |c-nested|-citatio|
|00001390| 6e 2d 70 20 28 73 63 2d | 61 64 64 2d 63 69 74 61 |n-p (sc-|add-cita|
|000013a0| 74 69 6f 6e 2d 6c 65 76 | 65 6c 29 29 20 28 74 20 |tion-lev|el)) (t |
|000013b0| 28 73 63 2d 63 69 74 65 | 2d 6c 69 6e 65 29 29 20 |(sc-cite|-line)) |
|000013c0| 28 65 6e 64 20 28 73 63 | 2d 66 69 6c 6c 2d 69 66 |(end (sc|-fill-if|
|000013d0| 2d 64 69 66 66 65 72 65 | 6e 74 20 22 22 29 29 29 |-differe|nt "")))|
|000013e0| 20 22 2a 44 65 66 61 75 | 6c 74 20 52 45 47 49 20 | "*Defau|lt REGI |
|000013f0| 66 72 61 6d 65 20 66 6f | 72 20 63 69 74 69 6e 67 |frame fo|r citing|
|00001400| 20 61 20 72 65 67 69 6f | 6e 2e 22 20 3a 74 79 70 | a regio|n." :typ|
|00001410| 65 20 27 28 72 65 70 65 | 61 74 20 28 72 65 70 65 |e '(repe|at (repe|
|00001420| 61 74 20 73 65 78 70 29 | 29 20 3a 67 72 6f 75 70 |at sexp)|) :group|
|00001430| 20 27 73 75 70 65 72 63 | 69 74 65 2d 66 72 61 6d | 'superc|ite-fram|
|00001440| 65 73 29 0a 28 63 75 73 | 74 6f 6d 2d 64 65 63 6c |es).(cus|tom-decl|
|00001450| 61 72 65 2d 76 61 72 69 | 61 62 6c 65 20 27 73 63 |are-vari|able 'sc|
|00001460| 2d 64 65 66 61 75 6c 74 | 2d 75 6e 63 69 74 65 2d |-default|-uncite-|
|00001470| 66 72 61 6d 65 20 27 27 | 28 28 22 5e 5b 20 09 5d |frame ''|(("^[ .]|
|00001480| 2a 24 22 20 6e 69 6c 29 | 20 28 28 73 63 2d 63 69 |*$" nil)| ((sc-ci|
|00001490| 74 65 2d 72 65 67 65 78 | 70 29 20 28 73 63 2d 75 |te-regex|p) (sc-u|
|000014a0| 6e 63 69 74 65 2d 6c 69 | 6e 65 29 29 29 20 22 2a |ncite-li|ne))) "*|
|000014b0| 44 65 66 61 75 6c 74 20 | 52 45 47 49 20 66 72 61 |Default |REGI fra|
|000014c0| 6d 65 20 66 6f 72 20 75 | 6e 63 69 74 69 6e 67 20 |me for u|nciting |
|000014d0| 61 20 72 65 67 69 6f 6e | 2e 22 20 3a 74 79 70 65 |a region|." :type|
|000014e0| 20 27 28 72 65 70 65 61 | 74 20 28 72 65 70 65 61 | '(repea|t (repea|
|000014f0| 74 20 73 65 78 70 29 29 | 20 3a 67 72 6f 75 70 20 |t sexp))| :group |
|00001500| 27 73 75 70 65 72 63 69 | 74 65 2d 66 72 61 6d 65 |'superci|te-frame|
|00001510| 73 29 0a 28 63 75 73 74 | 6f 6d 2d 64 65 63 6c 61 |s).(cust|om-decla|
|00001520| 72 65 2d 76 61 72 69 61 | 62 6c 65 20 27 73 63 2d |re-varia|ble 'sc-|
|00001530| 64 65 66 61 75 6c 74 2d | 72 65 63 69 74 65 2d 66 |default-|recite-f|
|00001540| 72 61 6d 65 20 27 27 28 | 28 62 65 67 69 6e 20 28 |rame ''(|(begin (|
|00001550| 73 63 2d 66 69 6c 6c 2d | 69 66 2d 64 69 66 66 65 |sc-fill-|if-diffe|
|00001560| 72 65 6e 74 29 29 20 28 | 22 5e 5b 20 09 5d 2a 24 |rent)) (|"^[ .]*$|
|00001570| 22 20 6e 69 6c 29 20 28 | 28 73 63 2d 63 69 74 65 |" nil) (|(sc-cite|
|00001580| 2d 72 65 67 65 78 70 29 | 20 28 73 63 2d 72 65 63 |-regexp)| (sc-rec|
|00001590| 69 74 65 2d 6c 69 6e 65 | 20 28 73 63 2d 63 69 74 |ite-line| (sc-cit|
|000015a0| 65 2d 72 65 67 65 78 70 | 29 29 29 20 28 74 20 28 |e-regexp|))) (t (|
|000015b0| 73 63 2d 63 69 74 65 2d | 6c 69 6e 65 29 29 20 28 |sc-cite-|line)) (|
|000015c0| 65 6e 64 20 28 73 63 2d | 66 69 6c 6c 2d 69 66 2d |end (sc-|fill-if-|
|000015d0| 64 69 66 66 65 72 65 6e | 74 20 22 22 29 29 29 20 |differen|t ""))) |
|000015e0| 22 2a 44 65 66 61 75 6c | 74 20 52 45 47 49 20 66 |"*Defaul|t REGI f|
|000015f0| 72 61 6d 65 20 66 6f 72 | 20 72 65 63 69 74 69 6e |rame for| recitin|
|00001600| 67 20 61 20 72 65 67 69 | 6f 6e 2e 22 20 3a 74 79 |g a regi|on." :ty|
|00001610| 70 65 20 27 28 72 65 70 | 65 61 74 20 28 72 65 70 |pe '(rep|eat (rep|
|00001620| 65 61 74 20 73 65 78 70 | 29 29 20 3a 67 72 6f 75 |eat sexp|)) :grou|
|00001630| 70 20 27 73 75 70 65 72 | 63 69 74 65 2d 66 72 61 |p 'super|cite-fra|
|00001640| 6d 65 73 29 0a 28 63 75 | 73 74 6f 6d 2d 64 65 63 |mes).(cu|stom-dec|
|00001650| 6c 61 72 65 2d 76 61 72 | 69 61 62 6c 65 20 27 73 |lare-var|iable 's|
|00001660| 63 2d 63 69 74 65 2d 72 | 65 67 69 6f 6e 2d 6c 69 |c-cite-r|egion-li|
|00001670| 6d 69 74 20 27 74 20 22 | 2a 54 68 69 73 20 76 61 |mit 't "|*This va|
|00001680| 72 69 61 62 6c 65 20 63 | 6f 6e 74 72 6f 6c 73 20 |riable c|ontrols |
|00001690| 61 75 74 6f 6d 61 74 69 | 63 20 63 69 74 61 74 69 |automati|c citati|
|000016a0| 6f 6e 20 6f 66 20 79 61 | 6e 6b 65 64 20 74 65 78 |on of ya|nked tex|
|000016b0| 74 2e 5c 6e 4c 65 67 61 | 6c 20 76 61 6c 75 65 73 |t.\nLega|l values|
|000016c0| 20 61 72 65 3a 5c 6e 5c | 6e 6e 6f 6e 2d 6e 69 6c | are:\n\|nnon-nil|
|000016d0| 20 20 20 2d 2d 20 63 69 | 74 65 20 74 68 65 20 65 |   -- ci|te the e|
|000016e0| 6e 74 69 72 65 20 72 65 | 67 69 6f 6e 2c 20 72 65 |ntire re|gion, re|
|000016f0| 67 61 72 64 6c 65 73 73 | 20 6f 66 20 69 74 73 20 |gardless| of its |
|00001700| 73 69 7a 65 5c 6e 6e 69 | 6c 20 20 20 20 20 20 20 |size\nni|l       |
|00001710| 2d 2d 20 64 6f 20 6e 6f | 74 20 63 69 74 65 20 74 |-- do no|t cite t|
|00001720| 68 65 20 72 65 67 69 6f | 6e 20 61 74 20 61 6c 6c |he regio|n at all|
|00001730| 5c 6e 3c 69 6e 74 65 67 | 65 72 3e 20 2d 2d 20 61 |\n<integ|er> -- a|
|00001740| 20 6e 75 6d 62 65 72 20 | 69 6e 64 69 63 61 74 69 | number |indicati|
|00001750| 6e 67 20 74 68 65 20 74 | 68 72 65 73 68 6f 6c 64 |ng the t|hreshold|
|00001760| 20 66 6f 72 20 63 69 74 | 61 74 69 6f 6e 2e 20 20 | for cit|ation.  |
|00001770| 57 68 65 6e 5c 6e 09 20 | 20 20 20 20 74 68 65 20 |When\n. |    the |
|00001780| 6e 75 6d 62 65 72 20 6f | 66 20 6c 69 6e 65 73 20 |number o|f lines |
|00001790| 69 6e 20 74 68 65 20 72 | 65 67 69 6f 6e 20 69 73 |in the r|egion is|
|000017a0| 20 67 72 65 61 74 65 72 | 20 74 68 61 6e 20 74 68 | greater| than th|
|000017b0| 69 73 5c 6e 09 20 20 20 | 20 20 76 61 6c 75 65 2c |is\n.   |  value,|
|000017c0| 20 61 20 77 61 72 6e 69 | 6e 67 20 6d 65 73 73 61 | a warni|ng messa|
|000017d0| 67 65 20 77 69 6c 6c 20 | 62 65 20 70 72 69 6e 74 |ge will |be print|
|000017e0| 65 64 20 61 6e 64 20 74 | 68 65 20 72 65 67 69 6f |ed and t|he regio|
|000017f0| 6e 5c 6e 09 20 20 20 20 | 20 77 69 6c 6c 20 6e 6f |n\n.    | will no|
|00001800| 74 20 62 65 20 63 69 74 | 65 64 2e 20 20 4c 69 6e |t be cit|ed.  Lin|
|00001810| 65 73 20 69 6e 20 72 65 | 67 69 6f 6e 20 61 72 65 |es in re|gion are|
|00001820| 20 63 6f 75 6e 74 65 64 | 20 77 69 74 68 5c 6e 09 | counted| with\n.|
|00001830| 20 20 20 20 20 60 63 6f | 75 6e 74 2d 6c 69 6e 65 |     `co|unt-line|
|00001840| 73 27 2e 20 5c 6e 5c 6e | 54 68 65 20 67 61 74 68 |s'. \n\n|The gath|
|00001850| 65 72 69 6e 67 20 6f 66 | 20 61 74 74 72 69 62 75 |ering of| attribu|
|00001860| 74 69 6f 6e 20 69 6e 66 | 6f 72 6d 61 74 69 6f 6e |tion inf|ormation|
|00001870| 20 69 73 20 6e 6f 74 20 | 61 66 66 65 63 74 65 64 | is not |affected|
|00001880| 20 62 79 20 74 68 65 20 | 76 61 6c 75 65 5c 6e 6f | by the |value\no|
|00001890| 66 20 74 68 69 73 20 76 | 61 72 69 61 62 6c 65 2e |f this v|ariable.|
|000018a0| 20 20 54 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |  The nu|mber of |
|000018b0| 6c 69 6e 65 73 20 69 6e | 20 74 68 65 20 72 65 67 |lines in| the reg|
|000018c0| 69 6f 6e 20 69 73 20 63 | 61 6c 63 75 6c 61 74 65 |ion is c|alculate|
|000018d0| 64 5c 6e 2a 61 66 74 65 | 72 2a 20 61 6c 6c 20 6d |d\n*afte|r* all m|
|000018e0| 61 69 6c 20 68 65 61 64 | 65 72 73 20 61 72 65 20 |ail head|ers are |
|000018f0| 72 65 6d 6f 76 65 64 2e | 20 20 54 68 69 73 20 76 |removed.|  This v|
|00001900| 61 72 69 61 62 6c 65 20 | 69 73 20 6f 6e 6c 79 20 |ariable |is only |
|00001910| 63 6f 6e 73 75 6c 74 65 | 64 5c 6e 64 75 72 69 6e |consulte|d\ndurin|
|00001920| 67 20 74 68 65 20 69 6e | 69 74 69 61 6c 20 63 69 |g the in|itial ci|
|00001930| 74 69 6e 67 20 76 69 61 | 20 60 73 63 2d 63 69 74 |ting via| `sc-cit|
|00001940| 65 2d 6f 72 69 67 69 6e | 61 6c 27 2e 22 20 3a 74 |e-origin|al'." :t|
|00001950| 79 70 65 20 27 28 63 68 | 6f 69 63 65 20 28 63 6f |ype '(ch|oice (co|
|00001960| 6e 73 74 20 3a 74 61 67 | 20 22 61 6c 77 61 79 73 |nst :tag| "always|
|00001970| 20 63 69 74 65 22 20 74 | 29 20 28 63 6f 6e 73 74 | cite" t|) (const|
|00001980| 20 3a 74 61 67 20 22 64 | 6f 20 6e 6f 74 20 63 69 | :tag "d|o not ci|
|00001990| 74 65 22 20 6e 69 6c 29 | 20 28 69 6e 74 65 67 65 |te" nil)| (intege|
|000019a0| 72 20 3a 74 61 67 20 22 | 63 69 74 61 74 69 6f 6e |r :tag "|citation|
|000019b0| 20 74 68 72 65 73 68 6f | 6c 64 22 29 29 20 3a 67 | thresho|ld")) :g|
|000019c0| 72 6f 75 70 20 27 73 75 | 70 65 72 63 69 74 65 2d |roup 'su|percite-|
|000019d0| 63 69 74 65 29 0a 28 63 | 75 73 74 6f 6d 2d 64 65 |cite).(c|ustom-de|
|000019e0| 63 6c 61 72 65 2d 76 61 | 72 69 61 62 6c 65 20 27 |clare-va|riable '|
|000019f0| 73 63 2d 63 6f 6e 66 69 | 72 6d 2d 61 6c 77 61 79 |sc-confi|rm-alway|
|00001a00| 73 2d 70 20 27 74 20 22 | 2a 49 66 20 6e 6f 6e 2d |s-p 't "|*If non-|
|00001a10| 6e 69 6c 2c 20 61 6c 77 | 61 79 73 20 63 6f 6e 66 |nil, alw|ays conf|
|00001a20| 69 72 6d 20 61 74 74 72 | 69 62 75 74 69 6f 6e 20 |irm attr|ibution |
|00001a30| 73 74 72 69 6e 67 20 62 | 65 66 6f 72 65 20 63 69 |string b|efore ci|
|00001a40| 74 69 6e 67 20 74 65 78 | 74 20 62 6f 64 79 2e 22 |ting tex|t body."|
|00001a50| 20 3a 74 79 70 65 20 27 | 62 6f 6f 6c 65 61 6e 20 | :type '|boolean |
|00001a60| 3a 67 72 6f 75 70 20 27 | 73 75 70 65 72 63 69 74 |:group '|supercit|
|00001a70| 65 2d 61 74 74 72 29 0a | 28 63 75 73 74 6f 6d 2d |e-attr).|(custom-|
|00001a80| 64 65 63 6c 61 72 65 2d | 76 61 72 69 61 62 6c 65 |declare-|variable|
|00001a90| 20 27 73 63 2d 64 65 66 | 61 75 6c 74 2d 61 74 74 | 'sc-def|ault-att|
|00001aa0| 72 69 62 75 74 69 6f 6e | 20 27 22 41 6e 6f 6e 22 |ribution| '"Anon"|
|00001ab0| 20 22 2a 53 74 72 69 6e | 67 20 75 73 65 64 20 77 | "*Strin|g used w|
|00001ac0| 68 65 6e 20 61 75 74 68 | 6f 72 27 73 20 61 74 74 |hen auth|or's att|
|00001ad0| 72 69 62 75 74 69 6f 6e | 20 63 61 6e 6e 6f 74 20 |ribution| cannot |
|00001ae0| 62 65 20 64 65 74 65 72 | 6d 69 6e 65 64 2e 22 20 |be deter|mined." |
|00001af0| 3a 74 79 70 65 20 27 73 | 74 72 69 6e 67 20 3a 67 |:type 's|tring :g|
|00001b00| 72 6f 75 70 20 27 73 75 | 70 65 72 63 69 74 65 2d |roup 'su|percite-|
|00001b10| 61 74 74 72 29 0a 28 63 | 75 73 74 6f 6d 2d 64 65 |attr).(c|ustom-de|
|00001b20| 63 6c 61 72 65 2d 76 61 | 72 69 61 62 6c 65 20 27 |clare-va|riable '|
|00001b30| 73 63 2d 64 65 66 61 75 | 6c 74 2d 61 75 74 68 6f |sc-defau|lt-autho|
|00001b40| 72 2d 6e 61 6d 65 20 27 | 22 41 6e 6f 6e 79 6d 6f |r-name '|"Anonymo|
|00001b50| 75 73 22 20 22 2a 53 74 | 72 69 6e 67 20 75 73 65 |us" "*St|ring use|
|00001b60| 64 20 77 68 65 6e 20 61 | 75 74 68 6f 72 27 73 20 |d when a|uthor's |
|00001b70| 6e 61 6d 65 20 63 61 6e | 6e 6f 74 20 62 65 20 64 |name can|not be d|
|00001b80| 65 74 65 72 6d 69 6e 65 | 64 2e 22 20 3a 74 79 70 |etermine|d." :typ|
|00001b90| 65 20 27 73 74 72 69 6e | 67 20 3a 67 72 6f 75 70 |e 'strin|g :group|
|00001ba0| 20 27 73 75 70 65 72 63 | 69 74 65 2d 61 74 74 72 | 'superc|ite-attr|
|00001bb0| 29 0a 28 63 75 73 74 6f | 6d 2d 64 65 63 6c 61 72 |).(custo|m-declar|
|00001bc0| 65 2d 76 61 72 69 61 62 | 6c 65 20 27 73 63 2d 64 |e-variab|le 'sc-d|
|00001bd0| 6f 77 6e 63 61 73 65 2d | 70 20 27 6e 69 6c 20 22 |owncase-|p 'nil "|
|00001be0| 2a 4e 6f 6e 2d 6e 69 6c | 20 6d 65 61 6e 73 20 64 |*Non-nil| means d|
|00001bf0| 6f 77 6e 63 61 73 65 20 | 74 68 65 20 61 74 74 72 |owncase |the attr|
|00001c00| 69 62 75 74 69 6f 6e 20 | 61 6e 64 20 63 69 74 61 |ibution |and cita|
|00001c10| 74 69 6f 6e 20 73 74 72 | 69 6e 67 73 2e 22 20 3a |tion str|ings." :|
|00001c20| 74 79 70 65 20 27 62 6f | 6f 6c 65 61 6e 20 3a 67 |type 'bo|olean :g|
|00001c30| 72 6f 75 70 20 27 73 75 | 70 65 72 63 69 74 65 2d |roup 'su|percite-|
|00001c40| 61 74 74 72 20 3a 67 72 | 6f 75 70 20 27 73 75 70 |attr :gr|oup 'sup|
|00001c50| 65 72 63 69 74 65 2d 63 | 69 74 65 29 0a 28 63 75 |ercite-c|ite).(cu|
|00001c60| 73 74 6f 6d 2d 64 65 63 | 6c 61 72 65 2d 76 61 72 |stom-dec|lare-var|
|00001c70| 69 61 62 6c 65 20 27 73 | 63 2d 65 6c 65 63 74 72 |iable 's|c-electr|
|00001c80| 69 63 2d 63 69 72 63 75 | 6c 61 72 2d 70 20 27 74 |ic-circu|lar-p 't|
|00001c90| 20 22 2a 49 66 20 6e 6f | 6e 2d 6e 69 6c 2c 20 74 | "*If no|n-nil, t|
|00001ca0| 72 65 61 74 20 65 6c 65 | 63 74 72 69 63 20 72 65 |reat ele|ctric re|
|00001cb0| 66 65 72 65 6e 63 65 73 | 20 61 73 20 63 69 72 63 |ferences| as circ|
|00001cc0| 75 6c 61 72 2e 22 20 3a | 74 79 70 65 20 27 62 6f |ular." :|type 'bo|
|00001cd0| 6f 6c 65 61 6e 20 3a 67 | 72 6f 75 70 20 27 73 75 |olean :g|roup 'su|
|00001ce0| 70 65 72 63 69 74 65 2d | 61 74 74 72 29 0a 28 63 |percite-|attr).(c|
|00001cf0| 75 73 74 6f 6d 2d 64 65 | 63 6c 61 72 65 2d 76 61 |ustom-de|clare-va|
|00001d00| 72 69 61 62 6c 65 20 27 | 73 63 2d 65 6c 65 63 74 |riable '|sc-elect|
|00001d10| 72 69 63 2d 6d 6f 64 65 | 2d 68 6f 6f 6b 20 27 6e |ric-mode|-hook 'n|
|00001d20| 69 6c 20 22 2a 48 6f 6f | 6b 20 66 6f 72 20 60 73 |il "*Hoo|k for `s|
|00001d30| 63 2d 65 6c 65 63 74 72 | 69 63 2d 6d 6f 64 65 27 |c-electr|ic-mode'|
|00001d40| 20 65 6c 65 63 74 72 69 | 63 20 72 65 66 65 72 65 | electri|c refere|
|00001d50| 6e 63 65 73 20 6d 6f 64 | 65 2e 22 20 3a 74 79 70 |nces mod|e." :typ|
|00001d60| 65 20 27 68 6f 6f 6b 20 | 3a 67 72 6f 75 70 20 27 |e 'hook |:group '|
|00001d70| 73 75 70 65 72 63 69 74 | 65 2d 68 6f 6f 6b 73 29 |supercit|e-hooks)|
|00001d80| 0a 28 63 75 73 74 6f 6d | 2d 64 65 63 6c 61 72 65 |.(custom|-declare|
|00001d90| 2d 76 61 72 69 61 62 6c | 65 20 27 73 63 2d 65 6c |-variabl|e 'sc-el|
|00001da0| 65 63 74 72 69 63 2d 72 | 65 66 65 72 65 6e 63 65 |ectric-r|eference|
|00001db0| 73 2d 70 20 27 6e 69 6c | 20 22 2a 55 73 65 20 65 |s-p 'nil| "*Use e|
|00001dc0| 6c 65 63 74 72 69 63 20 | 72 65 66 65 72 65 6e 63 |lectric |referenc|
|00001dd0| 65 73 20 69 66 20 6e 6f | 6e 2d 6e 69 6c 2e 22 20 |es if no|n-nil." |
|00001de0| 3a 74 79 70 65 20 27 62 | 6f 6f 6c 65 61 6e 20 3a |:type 'b|oolean :|
|00001df0| 67 72 6f 75 70 20 27 73 | 75 70 65 72 63 69 74 65 |group 's|upercite|
|00001e00| 29 0a 28 63 75 73 74 6f | 6d 2d 64 65 63 6c 61 72 |).(custo|m-declar|
|00001e10| 65 2d 76 61 72 69 61 62 | 6c 65 20 27 73 63 2d 66 |e-variab|le 'sc-f|
|00001e20| 69 78 75 70 2d 77 68 69 | 74 65 73 70 61 63 65 2d |ixup-whi|tespace-|
|00001e30| 70 20 27 6e 69 6c 20 22 | 2a 49 66 20 6e 6f 6e 2d |p 'nil "|*If non-|
|00001e40| 6e 69 6c 2c 20 64 65 6c | 65 74 65 20 61 6c 6c 20 |nil, del|ete all |
|00001e50| 6c 65 61 64 69 6e 67 20 | 77 68 69 74 65 20 73 70 |leading |white sp|
|00001e60| 61 63 65 20 62 65 66 6f | 72 65 20 63 69 74 69 6e |ace befo|re citin|
|00001e70| 67 2e 22 20 3a 74 79 70 | 65 20 27 62 6f 6f 6c 65 |g." :typ|e 'boole|
|00001e80| 61 6e 20 3a 67 72 6f 75 | 70 20 27 73 75 70 65 72 |an :grou|p 'super|
|00001e90| 63 69 74 65 29 0a 28 63 | 75 73 74 6f 6d 2d 64 65 |cite).(c|ustom-de|
|00001ea0| 63 6c 61 72 65 2d 76 61 | 72 69 61 62 6c 65 20 27 |clare-va|riable '|
|00001eb0| 73 63 2d 6c 6f 61 64 2d | 68 6f 6f 6b 20 27 6e 69 |sc-load-|hook 'ni|
|00001ec0| 6c 20 22 2a 48 6f 6f 6b | 20 77 68 69 63 68 20 67 |l "*Hook| which g|
|00001ed0| 65 74 73 20 72 75 6e 20 | 6f 6e 63 65 20 61 66 74 |ets run |once aft|
|00001ee0| 65 72 20 53 75 70 65 72 | 63 69 74 65 20 6c 6f 61 |er Super|cite loa|
|00001ef0| 64 73 2e 22 20 3a 74 79 | 70 65 20 27 68 6f 6f 6b |ds." :ty|pe 'hook|
|00001f00| 20 3a 67 72 6f 75 70 20 | 27 73 75 70 65 72 63 69 | :group |'superci|
|00001f10| 74 65 2d 68 6f 6f 6b 73 | 29 0a 28 63 75 73 74 6f |te-hooks|).(custo|
|00001f20| 6d 2d 64 65 63 6c 61 72 | 65 2d 76 61 72 69 61 62 |m-declar|e-variab|
|00001f30| 6c 65 20 27 73 63 2d 70 | 72 65 2d 68 6f 6f 6b 20 |le 'sc-p|re-hook |
|00001f40| 27 6e 69 6c 20 22 2a 48 | 6f 6f 6b 20 77 68 69 63 |'nil "*H|ook whic|
|00001f50| 68 20 67 65 74 73 20 72 | 75 6e 20 62 65 66 6f 72 |h gets r|un befor|
|00001f60| 65 20 65 61 63 68 20 69 | 6e 76 6f 63 61 74 69 6f |e each i|nvocatio|
|00001f70| 6e 20 6f 66 20 60 73 63 | 2d 63 69 74 65 2d 6f 72 |n of `sc|-cite-or|
|00001f80| 69 67 69 6e 61 6c 27 2e | 22 20 3a 74 79 70 65 20 |iginal'.|" :type |
|00001f90| 27 68 6f 6f 6b 20 3a 67 | 72 6f 75 70 20 27 73 75 |'hook :g|roup 'su|
|00001fa0| 70 65 72 63 69 74 65 2d | 68 6f 6f 6b 73 29 0a 28 |percite-|hooks).(|
|00001fb0| 63 75 73 74 6f 6d 2d 64 | 65 63 6c 61 72 65 2d 76 |custom-d|eclare-v|
|00001fc0| 61 72 69 61 62 6c 65 20 | 27 73 63 2d 70 6f 73 74 |ariable |'sc-post|
|00001fd0| 2d 68 6f 6f 6b 20 27 6e | 69 6c 20 22 2a 48 6f 6f |-hook 'n|il "*Hoo|
|00001fe0| 6b 20 77 68 69 63 68 20 | 67 65 74 73 20 72 75 6e |k which |gets run|
|00001ff0| 20 61 66 74 65 72 20 65 | 61 63 68 20 69 6e 76 6f | after e|ach invo|
|00002000| 63 61 74 69 6f 6e 20 6f | 66 20 60 73 63 2d 63 69 |cation o|f `sc-ci|
|00002010| 74 65 2d 6f 72 69 67 69 | 6e 61 6c 27 2e 22 20 3a |te-origi|nal'." :|
|00002020| 74 79 70 65 20 27 68 6f | 6f 6b 20 3a 67 72 6f 75 |type 'ho|ok :grou|
|00002030| 70 20 27 73 75 70 65 72 | 63 69 74 65 2d 68 6f 6f |p 'super|cite-hoo|
|00002040| 6b 73 29 0a 28 63 75 73 | 74 6f 6d 2d 64 65 63 6c |ks).(cus|tom-decl|
|00002050| 61 72 65 2d 76 61 72 69 | 61 62 6c 65 20 27 73 63 |are-vari|able 'sc|
|00002060| 2d 6d 61 69 6c 2d 77 61 | 72 6e 2d 69 66 2d 6e 6f |-mail-wa|rn-if-no|
|00002070| 6e 2d 72 66 63 38 32 32 | 2d 70 20 27 74 20 22 2a |n-rfc822|-p 't "*|
|00002080| 57 61 72 6e 20 69 66 20 | 6d 61 69 6c 20 68 65 61 |Warn if |mail hea|
|00002090| 64 65 72 73 20 64 6f 6e | 27 74 20 63 6f 6e 66 6f |ders don|'t confo|
|000020a0| 72 6d 20 74 6f 20 52 46 | 43 38 32 32 2e 22 20 3a |rm to RF|C822." :|
|000020b0| 74 79 70 65 20 27 62 6f | 6f 6c 65 61 6e 20 3a 67 |type 'bo|olean :g|
|000020c0| 72 6f 75 70 20 27 73 75 | 70 65 72 63 69 74 65 2d |roup 'su|percite-|
|000020d0| 61 74 74 72 29 0a 28 63 | 75 73 74 6f 6d 2d 64 65 |attr).(c|ustom-de|
|000020e0| 63 6c 61 72 65 2d 76 61 | 72 69 61 62 6c 65 20 27 |clare-va|riable '|
|000020f0| 73 63 2d 6d 75 6d 62 6c | 65 20 27 22 22 20 22 2a |sc-mumbl|e '"" "*|
|00002100| 56 61 6c 75 65 20 72 65 | 74 75 72 6e 65 64 20 62 |Value re|turned b|
|00002110| 79 20 60 73 63 2d 6d 61 | 69 6c 2d 66 69 65 6c 64 |y `sc-ma|il-field|
|00002120| 27 20 69 66 20 66 69 65 | 6c 64 20 69 73 6e 27 74 |' if fie|ld isn't|
|00002130| 20 69 6e 20 6d 61 69 6c | 20 68 65 61 64 65 72 73 | in mail| headers|
|00002140| 2e 22 20 3a 74 79 70 65 | 20 27 73 74 72 69 6e 67 |." :type| 'string|
|00002150| 20 3a 67 72 6f 75 70 20 | 27 73 75 70 65 72 63 69 | :group |'superci|
|00002160| 74 65 2d 61 74 74 72 29 | 0a 28 63 75 73 74 6f 6d |te-attr)|.(custom|
|00002170| 2d 64 65 63 6c 61 72 65 | 2d 76 61 72 69 61 62 6c |-declare|-variabl|
|00002180| 65 20 27 73 63 2d 6e 61 | 6d 65 2d 66 69 6c 74 65 |e 'sc-na|me-filte|
|00002190| 72 2d 61 6c 69 73 74 20 | 27 27 28 28 22 5c 5c 5b |r-alist |''(("\\[|
|000021a0| 2e 2a 5c 5c 5d 5c 5c 7c | 5c 5c 5b 5b 5e 5d 5d 2a |.*\\]\\||\\[[^]]*|
|000021b0| 5c 5c 7c 5b 5e 5b 5d 2a | 5c 5c 5d 22 20 2e 20 61 |\\|[^[]*|\\]" . a|
|000021c0| 6e 79 29 20 28 22 5e 5c | 5c 28 4d 72 5c 5c 7c 4d |ny) ("^\|\(Mr\\|M|
|000021d0| 72 73 5c 5c 7c 4d 73 5c | 5c 7c 44 72 5c 5c 29 5b |rs\\|Ms\|\|Dr\\)[|
|000021e0| 2e 5d 3f 24 22 20 2e 20 | 30 29 20 28 22 5e 5c 5c |.]?$" . |0) ("^\\|
|000021f0| 28 4a 72 5c 5c 7c 53 72 | 5c 5c 29 5b 2e 5d 3f 24 |(Jr\\|Sr|\\)[.]?$|
|00002200| 22 20 2e 20 6c 61 73 74 | 29 20 28 22 5e 41 53 54 |" . last|) ("^AST|
|00002210| 53 24 22 20 2e 20 30 29 | 20 28 22 5e 5b 49 5d 2b |S$" . 0)| ("^[I]+|
|00002220| 24 22 20 2e 20 6c 61 73 | 74 29 29 20 22 2a 4e 61 |$" . las|t)) "*Na|
|00002230| 6d 65 20 6c 69 73 74 20 | 63 6f 6d 70 6f 6e 65 6e |me list |componen|
|00002240| 74 73 20 77 68 69 63 68 | 20 61 72 65 20 66 69 6c |ts which| are fil|
|00002250| 74 65 72 65 64 20 6f 75 | 74 20 61 73 20 6e 6f 69 |tered ou|t as noi|
|00002260| 73 65 2e 5c 6e 54 68 69 | 73 20 76 61 72 69 61 62 |se.\nThi|s variab|
|00002270| 6c 65 20 63 6f 6e 74 61 | 69 6e 73 20 61 6e 20 61 |le conta|ins an a|
|00002280| 73 73 6f 63 69 61 74 69 | 6f 6e 20 6c 69 73 74 20 |ssociati|on list |
|00002290| 77 68 65 72 65 20 65 61 | 63 68 20 65 6c 65 6d 65 |where ea|ch eleme|
|000022a0| 6e 74 20 69 73 20 6f 66 | 5c 6e 74 68 65 20 66 6f |nt is of|\nthe fo|
|000022b0| 72 6d 3a 20 20 28 52 45 | 47 45 58 50 20 2e 20 50 |rm:  (RE|GEXP . P|
|000022c0| 4f 53 49 54 49 4f 4e 29 | 2e 5c 6e 5c 6e 52 45 47 |OSITION)|.\n\nREG|
|000022d0| 45 58 50 20 69 73 20 61 | 20 72 65 67 75 6c 61 72 |EXP is a| regular|
|000022e0| 20 65 78 70 72 65 73 73 | 69 6f 6e 20 77 68 69 63 | express|ion whic|
|000022f0| 68 20 6d 61 74 63 68 65 | 73 20 74 68 65 20 6e 61 |h matche|s the na|
|00002300| 6d 65 20 6c 69 73 74 20 | 63 6f 6d 70 6f 6e 65 6e |me list |componen|
|00002310| 74 2e 5c 6e 4d 61 74 63 | 68 20 69 73 20 70 65 72 |t.\nMatc|h is per|
|00002320| 66 6f 72 6d 65 64 20 75 | 73 69 6e 67 20 60 73 74 |formed u|sing `st|
|00002330| 72 69 6e 67 2d 6d 61 74 | 63 68 27 2e 20 20 50 4f |ring-mat|ch'.  PO|
|00002340| 53 49 54 49 4f 4e 20 69 | 73 20 74 68 65 20 70 6f |SITION i|s the po|
|00002350| 73 69 74 69 6f 6e 20 69 | 6e 5c 6e 74 68 65 20 6e |sition i|n\nthe n|
|00002360| 61 6d 65 20 6c 69 73 74 | 20 77 68 69 63 68 20 63 |ame list| which c|
|00002370| 61 6e 20 6d 61 74 63 68 | 20 74 68 65 20 72 65 67 |an match| the reg|
|00002380| 75 6c 61 72 20 65 78 70 | 72 65 73 73 69 6f 6e 2c |ular exp|ression,|
|00002390| 20 73 74 61 72 74 69 6e | 67 20 61 74 20 7a 65 72 | startin|g at zer|
|000023a0| 6f 5c 6e 66 6f 72 20 74 | 68 65 20 66 69 72 73 74 |o\nfor t|he first|
|000023b0| 20 65 6c 65 6d 65 6e 74 | 2e 20 20 55 73 65 20 60 | element|.  Use `|
|000023c0| 6c 61 73 74 27 20 74 6f | 20 6d 61 74 63 68 20 74 |last' to| match t|
|000023d0| 68 65 20 6c 61 73 74 20 | 65 6c 65 6d 65 6e 74 20 |he last |element |
|000023e0| 69 6e 20 74 68 65 5c 6e | 6c 69 73 74 20 61 6e 64 |in the\n|list and|
|000023f0| 20 60 61 6e 79 27 20 74 | 6f 20 6d 61 74 63 68 20 | `any' t|o match |
|00002400| 61 6c 6c 20 65 6c 65 6d | 65 6e 74 73 2e 22 20 3a |all elem|ents." :|
|00002410| 74 79 70 65 20 27 28 72 | 65 70 65 61 74 20 28 63 |type '(r|epeat (c|
|00002420| 6f 6e 73 20 72 65 67 65 | 78 70 20 28 63 68 6f 69 |ons rege|xp (choi|
|00002430| 63 65 20 28 63 6f 6e 73 | 74 20 6c 61 73 74 29 20 |ce (cons|t last) |
|00002440| 28 63 6f 6e 73 74 20 61 | 6e 79 29 20 28 69 6e 74 |(const a|ny) (int|
|00002450| 65 67 65 72 20 3a 74 61 | 67 20 22 70 6f 73 69 74 |eger :ta|g "posit|
|00002460| 69 6f 6e 22 29 29 29 29 | 20 3a 67 72 6f 75 70 20 |ion"))))| :group |
|00002470| 27 73 75 70 65 72 63 69 | 74 65 2d 61 74 74 72 29 |'superci|te-attr)|
|00002480| 0a 28 63 75 73 74 6f 6d | 2d 64 65 63 6c 61 72 65 |.(custom|-declare|
|00002490| 2d 76 61 72 69 61 62 6c | 65 20 27 73 63 2d 6e 65 |-variabl|e 'sc-ne|
|000024a0| 73 74 65 64 2d 63 69 74 | 61 74 69 6f 6e 2d 70 20 |sted-cit|ation-p |
|000024b0| 27 6e 69 6c 20 22 2a 43 | 6f 6e 74 72 6f 6c 73 20 |'nil "*C|ontrols |
|000024c0| 77 68 65 74 68 65 72 20 | 74 6f 20 75 73 65 20 6e |whether |to use n|
|000024d0| 65 73 74 65 64 20 6f 72 | 20 6e 6f 6e 2d 6e 65 73 |ested or| non-nes|
|000024e0| 74 65 64 20 63 69 74 61 | 74 69 6f 6e 20 73 74 79 |ted cita|tion sty|
|000024f0| 6c 65 2e 5c 6e 4e 6f 6e | 2d 6e 69 6c 20 75 73 65 |le.\nNon|-nil use|
|00002500| 73 20 6e 65 73 74 65 64 | 20 63 69 74 61 74 69 6f |s nested| citatio|
|00002510| 6e 73 2c 20 6e 69 6c 20 | 75 73 65 73 20 6e 6f 6e |ns, nil |uses non|
|00002520| 2d 6e 65 73 74 65 64 20 | 63 69 74 61 74 69 6f 6e |-nested |citation|
|00002530| 73 2e 22 20 3a 74 79 70 | 65 20 27 62 6f 6f 6c 65 |s." :typ|e 'boole|
|00002540| 61 6e 20 3a 67 72 6f 75 | 70 20 27 73 75 70 65 72 |an :grou|p 'super|
|00002550| 63 69 74 65 29 0a 28 63 | 75 73 74 6f 6d 2d 64 65 |cite).(c|ustom-de|
|00002560| 63 6c 61 72 65 2d 76 61 | 72 69 61 62 6c 65 20 27 |clare-va|riable '|
|00002570| 73 63 2d 6e 75 6b 65 2d | 6d 61 69 6c 2d 68 65 61 |sc-nuke-|mail-hea|
|00002580| 64 65 72 73 20 27 27 61 | 6c 6c 20 22 2a 43 6f 6e |ders ''a|ll "*Con|
|00002590| 74 72 6f 6c 73 20 6d 61 | 69 6c 20 68 65 61 64 65 |trols ma|il heade|
|000025a0| 72 20 6e 75 6b 69 6e 67 | 2e 5c 6e 55 73 65 64 20 |r nuking|.\nUsed |
|000025b0| 69 6e 20 63 6f 6e 6a 75 | 6e 63 74 69 6f 6e 20 77 |in conju|nction w|
|000025c0| 69 74 68 20 60 73 63 2d | 6e 75 6b 65 2d 6d 61 69 |ith `sc-|nuke-mai|
|000025d0| 6c 2d 68 65 61 64 65 72 | 2d 6c 69 73 74 27 2e 20 |l-header|-list'. |
|000025e0| 20 4c 65 67 61 6c 20 76 | 61 6c 75 65 73 20 61 72 | Legal v|alues ar|
|000025f0| 65 3a 5c 6e 5c 6e 60 61 | 6c 6c 27 20 20 20 20 20 |e:\n\n`a|ll'     |
|00002600| 20 20 2d 2d 20 6e 75 6b | 65 20 61 6c 6c 20 6d 61 |  -- nuk|e all ma|
|00002610| 69 6c 20 68 65 61 64 65 | 72 73 5c 6e 60 6e 6f 6e |il heade|rs\n`non|
|00002620| 65 27 20 20 20 20 20 20 | 2d 2d 20 64 6f 6e 27 74 |e'      |-- don't|
|00002630| 20 6e 75 6b 65 20 61 6e | 79 20 6d 61 69 6c 20 68 | nuke an|y mail h|
|00002640| 65 61 64 65 72 73 5c 6e | 60 73 70 65 63 69 66 69 |eaders\n|`specifi|
|00002650| 65 64 27 20 2d 2d 20 6e | 75 6b 65 20 68 65 61 64 |ed' -- n|uke head|
|00002660| 65 72 73 20 73 70 65 63 | 69 66 69 65 64 20 69 6e |ers spec|ified in|
|00002670| 20 60 73 63 2d 6e 75 6b | 65 2d 6d 61 69 6c 2d 68 | `sc-nuk|e-mail-h|
|00002680| 65 61 64 65 72 2d 6c 69 | 73 74 27 5c 6e 60 6b 65 |eader-li|st'\n`ke|
|00002690| 65 70 27 20 20 20 20 20 | 20 2d 2d 20 6b 65 65 70 |ep'     | -- keep|
|000026a0| 20 68 65 61 64 65 72 73 | 20 73 70 65 63 69 66 69 | headers| specifi|
|000026b0| 65 64 20 69 6e 20 60 73 | 63 2d 6e 75 6b 65 2d 6d |ed in `s|c-nuke-m|
|000026c0| 61 69 6c 2d 68 65 61 64 | 65 72 2d 6c 69 73 74 27 |ail-head|er-list'|
|000026d0| 22 20 3a 74 79 70 65 20 | 27 28 63 68 6f 69 63 65 |" :type |'(choice|
|000026e0| 20 28 63 6f 6e 73 74 20 | 61 6c 6c 29 20 28 63 6f | (const |all) (co|
|000026f0| 6e 73 74 20 6e 6f 6e 65 | 29 20 28 63 6f 6e 73 74 |nst none|) (const|
|00002700| 20 73 70 65 63 69 66 69 | 65 64 29 20 28 63 6f 6e | specifi|ed) (con|
|00002710| 73 74 20 6b 65 65 70 29 | 29 20 3a 67 72 6f 75 70 |st keep)|) :group|
|00002720| 20 27 73 75 70 65 72 63 | 69 74 65 29 0a 28 63 75 | 'superc|ite).(cu|
|00002730| 73 74 6f 6d 2d 64 65 63 | 6c 61 72 65 2d 76 61 72 |stom-dec|lare-var|
|00002740| 69 61 62 6c 65 20 27 73 | 63 2d 6e 75 6b 65 2d 6d |iable 's|c-nuke-m|
|00002750| 61 69 6c 2d 68 65 61 64 | 65 72 2d 6c 69 73 74 20 |ail-head|er-list |
|00002760| 27 6e 69 6c 20 22 2a 4c | 69 73 74 20 6f 66 20 6d |'nil "*L|ist of m|
|00002770| 61 69 6c 20 68 65 61 64 | 65 72 20 72 65 67 65 78 |ail head|er regex|
|00002780| 70 73 20 74 6f 20 72 65 | 6d 6f 76 65 20 6f 72 20 |ps to re|move or |
|00002790| 6b 65 65 70 20 69 6e 20 | 62 6f 64 79 20 6f 66 20 |keep in |body of |
|000027a0| 72 65 70 6c 79 2e 5c 6e | 54 68 69 73 20 6c 69 73 |reply.\n|This lis|
|000027b0| 74 20 63 6f 6e 74 61 69 | 6e 73 20 72 65 67 75 6c |t contai|ns regul|
|000027c0| 61 72 20 65 78 70 72 65 | 73 73 69 6f 6e 73 20 64 |ar expre|ssions d|
|000027d0| 65 73 63 72 69 62 69 6e | 67 20 74 68 65 20 6d 61 |escribin|g the ma|
|000027e0| 69 6c 20 68 65 61 64 65 | 72 73 20 74 6f 5c 6e 6b |il heade|rs to\nk|
|000027f0| 65 65 70 20 6f 72 20 6e | 75 6b 65 2c 20 64 65 70 |eep or n|uke, dep|
|00002800| 65 6e 64 69 6e 67 20 6f | 6e 20 74 68 65 20 76 61 |ending o|n the va|
|00002810| 6c 75 65 20 6f 66 20 60 | 73 63 2d 6e 75 6b 65 2d |lue of `|sc-nuke-|
|00002820| 6d 61 69 6c 2d 68 65 61 | 64 65 72 73 27 2e 22 20 |mail-hea|ders'." |
|00002830| 3a 74 79 70 65 20 27 28 | 72 65 70 65 61 74 20 72 |:type '(|repeat r|
|00002840| 65 67 65 78 70 29 20 3a | 67 72 6f 75 70 20 27 73 |egexp) :|group 's|
|00002850| 75 70 65 72 63 69 74 65 | 29 0a 28 63 75 73 74 6f |upercite|).(custo|
|00002860| 6d 2d 64 65 63 6c 61 72 | 65 2d 76 61 72 69 61 62 |m-declar|e-variab|
|00002870| 6c 65 20 27 73 63 2d 70 | 72 65 66 65 72 72 65 64 |le 'sc-p|referred|
|00002880| 2d 61 74 74 72 69 62 75 | 74 69 6f 6e 2d 6c 69 73 |-attribu|tion-lis|
|00002890| 74 20 27 27 28 22 73 63 | 2d 6c 61 73 74 63 68 6f |t ''("sc|-lastcho|
|000028a0| 69 63 65 22 20 22 78 2d | 61 74 74 72 69 62 75 74 |ice" "x-|attribut|
|000028b0| 69 6f 6e 22 20 22 66 69 | 72 73 74 6e 61 6d 65 22 |ion" "fi|rstname"|
|000028c0| 20 22 69 6e 69 74 69 61 | 6c 73 22 20 22 6c 61 73 | "initia|ls" "las|
|000028d0| 74 6e 61 6d 65 22 29 20 | 22 2a 53 70 65 63 69 66 |tname") |"*Specif|
|000028e0| 69 65 73 20 77 68 61 74 | 20 74 6f 20 75 73 65 20 |ies what| to use |
|000028f0| 61 73 20 74 68 65 20 61 | 74 74 72 69 62 75 74 69 |as the a|ttributi|
|00002900| 6f 6e 20 73 74 72 69 6e | 67 2e 5c 6e 53 75 70 65 |on strin|g.\nSupe|
|00002910| 72 63 69 74 65 20 63 72 | 65 61 74 65 73 20 61 20 |rcite cr|eates a |
|00002920| 6c 69 73 74 20 6f 66 20 | 70 6f 73 73 69 62 6c 65 |list of |possible|
|00002930| 20 61 74 74 72 69 62 75 | 74 69 6f 6e 73 20 77 68 | attribu|tions wh|
|00002940| 65 6e 20 69 74 20 73 63 | 61 6e 73 20 74 68 65 5c |en it sc|ans the\|
|00002950| 6e 6d 61 69 6c 20 68 65 | 61 64 65 72 73 20 66 72 |nmail he|aders fr|
|00002960| 6f 6d 20 74 68 65 20 6f | 72 69 67 69 6e 61 6c 20 |om the o|riginal |
|00002970| 6d 65 73 73 61 67 65 2e | 20 20 45 61 63 68 20 61 |message.|  Each a|
|00002980| 74 74 72 69 62 75 74 69 | 6f 6e 20 63 68 6f 69 63 |ttributi|on choic|
|00002990| 65 20 69 73 5c 6e 61 73 | 73 6f 63 69 61 74 65 64 |e is\nas|sociated|
|000029a0| 20 77 69 74 68 20 61 20 | 6b 65 79 20 69 6e 20 61 | with a |key in a|
|000029b0| 6e 20 61 74 74 72 69 62 | 75 74 69 6f 6e 20 61 6c |n attrib|ution al|
|000029c0| 69 73 74 2e 20 20 53 75 | 70 65 72 63 69 74 65 20 |ist.  Su|percite |
|000029d0| 74 72 69 65 73 20 74 6f | 5c 6e 70 69 63 6b 20 61 |tries to|\npick a|
|000029e0| 20 5c 22 70 72 65 66 65 | 72 72 65 64 5c 22 20 61 | \"prefe|rred\" a|
|000029f0| 74 74 72 69 62 75 74 69 | 6f 6e 20 62 79 20 6d 61 |ttributi|on by ma|
|00002a00| 74 63 68 69 6e 67 20 74 | 68 65 20 61 74 74 72 69 |tching t|he attri|
|00002a10| 62 75 74 69 6f 6e 20 61 | 6c 69 73 74 5c 6e 6b 65 |bution a|list\nke|
|00002a20| 79 73 20 61 67 61 69 6e | 73 74 20 74 68 65 20 65 |ys again|st the e|
|00002a30| 6c 65 6d 65 6e 74 73 20 | 69 6e 20 60 73 63 2d 70 |lements |in `sc-p|
|00002a40| 72 65 66 65 72 72 65 64 | 2d 61 74 74 72 69 62 75 |referred|-attribu|
|00002a50| 74 69 6f 6e 2d 6c 69 73 | 74 27 20 69 6e 20 6f 72 |tion-lis|t' in or|
|00002a60| 64 65 72 2e 5c 6e 54 68 | 65 20 66 69 72 73 74 20 |der.\nTh|e first |
|00002a70| 6e 6f 6e 2d 65 6d 70 74 | 79 20 73 74 72 69 6e 67 |non-empt|y string|
|00002a80| 20 76 61 6c 75 65 20 66 | 6f 75 6e 64 20 69 73 20 | value f|ound is |
|00002a90| 75 73 65 64 20 61 73 20 | 74 68 65 20 70 72 65 66 |used as |the pref|
|00002aa0| 65 72 72 65 64 5c 6e 61 | 74 74 72 69 62 75 74 69 |erred\na|ttributi|
|00002ab0| 6f 6e 2e 5c 6e 5c 6e 4e | 6f 74 65 20 74 68 61 74 |on.\n\nN|ote that|
|00002ac0| 20 53 75 70 65 72 63 69 | 74 65 20 6e 6f 77 20 68 | Superci|te now h|
|00002ad0| 6f 6e 6f 72 73 20 74 68 | 65 20 58 2d 41 74 74 72 |onors th|e X-Attr|
|00002ae0| 69 62 75 74 69 6f 6e 3a | 20 6d 61 69 6c 20 66 69 |ibution:| mail fi|
|00002af0| 65 6c 64 2e 20 20 49 66 | 5c 6e 70 72 65 73 65 6e |eld.  If|\npresen|
|00002b00| 74 20 69 6e 20 74 68 65 | 20 6f 72 69 67 69 6e 61 |t in the| origina|
|00002b10| 6c 20 6d 65 73 73 61 67 | 65 2c 20 74 68 65 20 76 |l messag|e, the v|
|00002b20| 61 6c 75 65 20 6f 66 20 | 74 68 69 73 20 66 69 65 |alue of |this fie|
|00002b30| 6c 64 20 73 68 6f 75 6c | 64 20 61 6c 77 61 79 73 |ld shoul|d always|
|00002b40| 5c 6e 62 65 20 75 73 65 | 64 20 74 6f 20 73 65 6c |\nbe use|d to sel|
|00002b50| 65 63 74 20 74 68 65 20 | 6d 6f 73 74 20 70 72 65 |ect the |most pre|
|00002b60| 66 65 72 72 65 64 20 61 | 74 74 72 69 62 75 74 69 |ferred a|ttributi|
|00002b70| 6f 6e 20 73 69 6e 63 65 | 20 69 74 20 72 65 66 6c |on since| it refl|
|00002b80| 65 63 74 73 20 68 6f 77 | 5c 6e 74 68 65 20 6f 72 |ects how|\nthe or|
|00002b90| 69 67 69 6e 61 6c 20 61 | 75 74 68 6f 72 20 77 6f |iginal a|uthor wo|
|00002ba0| 75 6c 64 20 6c 69 6b 65 | 20 74 6f 20 62 65 20 64 |uld like| to be d|
|00002bb0| 69 73 74 69 6e 67 75 69 | 73 68 65 64 2e 20 20 49 |istingui|shed.  I|
|00002bc0| 74 20 73 68 6f 75 6c 64 | 20 62 65 5c 6e 63 6f 6e |t should| be\ncon|
|00002bd0| 73 69 64 65 72 65 64 20 | 62 61 64 20 74 61 73 74 |sidered |bad tast|
|00002be0| 65 20 74 6f 20 70 75 74 | 20 61 6e 79 20 61 74 74 |e to put| any att|
|00002bf0| 72 69 62 75 74 69 6f 6e | 20 70 72 65 66 65 72 65 |ribution| prefere|
|00002c00| 6e 63 65 20 6b 65 79 20 | 62 65 66 6f 72 65 5c 6e |nce key |before\n|
|00002c10| 5c 22 78 2d 61 74 74 72 | 69 62 75 74 69 6f 6e 5c |\"x-attr|ibution\|
|00002c20| 22 20 69 6e 20 74 68 69 | 73 20 6c 69 73 74 2c 20 |" in thi|s list, |
|00002c30| 65 78 63 65 70 74 20 70 | 65 72 68 61 70 73 20 66 |except p|erhaps f|
|00002c40| 6f 72 20 5c 22 73 63 2d | 6c 61 73 74 63 68 6f 69 |or \"sc-|lastchoi|
|00002c50| 63 65 5c 22 5c 6e 28 73 | 65 65 20 62 65 6c 6f 77 |ce\"\n(s|ee below|
|00002c60| 29 2e 5c 6e 5c 6e 53 75 | 70 65 72 63 69 74 65 20 |).\n\nSu|percite |
|00002c70| 72 65 6d 65 6d 62 65 72 | 73 20 74 68 65 20 6c 61 |remember|s the la|
|00002c80| 73 74 20 61 74 74 72 69 | 62 75 74 69 6f 6e 20 75 |st attri|bution u|
|00002c90| 73 65 64 20 77 68 65 6e | 20 72 65 63 69 74 69 6e |sed when| recitin|
|00002ca0| 67 20 61 6e 20 61 6c 72 | 65 61 64 79 5c 6e 63 69 |g an alr|eady\nci|
|00002cb0| 74 65 64 20 70 61 72 61 | 67 72 61 70 68 2e 20 20 |ted para|graph.  |
|00002cc0| 54 68 69 73 20 61 74 74 | 72 69 62 75 74 69 6f 6e |This att|ribution|
|00002cd0| 20 77 69 6c 6c 20 61 6c | 77 61 79 73 20 62 65 20 | will al|ways be |
|00002ce0| 73 61 76 65 64 20 77 69 | 74 68 20 74 68 65 5c 6e |saved wi|th the\n|
|00002cf0| 5c 22 73 63 2d 6c 61 73 | 74 63 68 6f 69 63 65 5c |\"sc-las|tchoice\|
|00002d00| 22 20 6b 65 79 2c 20 77 | 68 69 63 68 20 63 61 6e |" key, w|hich can|
|00002d10| 20 62 65 20 75 73 65 64 | 20 69 6e 20 74 68 69 73 | be used| in this|
|00002d20| 20 6c 69 73 74 2e 20 20 | 4e 6f 74 65 20 74 68 61 | list.  |Note tha|
|00002d30| 74 20 74 68 65 5c 6e 6c | 61 73 74 20 63 68 6f 69 |t the\nl|ast choi|
|00002d40| 63 65 20 69 73 20 61 6c | 77 61 79 73 20 72 65 73 |ce is al|ways res|
|00002d50| 65 74 20 61 66 74 65 72 | 20 65 76 65 72 79 20 63 |et after| every c|
|00002d60| 61 6c 6c 20 6f 66 20 60 | 73 63 2d 63 69 74 65 2d |all of `|sc-cite-|
|00002d70| 6f 72 69 67 69 6e 61 6c | 27 2e 5c 6e 5c 6e 42 61 |original|'.\n\nBa|
|00002d80| 72 72 69 6e 67 20 65 72 | 72 6f 72 20 63 6f 6e 64 |rring er|ror cond|
|00002d90| 69 74 69 6f 6e 73 2c 20 | 74 68 65 20 66 6f 6c 6c |itions, |the foll|
|00002da0| 6f 77 69 6e 67 20 70 72 | 65 66 65 72 65 6e 63 65 |owing pr|eference|
|00002db0| 73 20 61 72 65 20 61 6c | 77 61 79 73 20 70 72 65 |s are al|ways pre|
|00002dc0| 73 65 6e 74 5c 6e 69 6e | 20 74 68 65 20 61 74 74 |sent\nin| the att|
|00002dd0| 72 69 62 75 74 69 6f 6e | 20 61 6c 69 73 74 3a 5c |ribution| alist:\|
|00002de0| 6e 5c 6e 5c 22 65 6d 61 | 69 6c 6e 61 6d 65 5c 22 |n\n\"ema|ilname\"|
|00002df0| 20 20 20 20 2d 2d 20 65 | 6d 61 69 6c 20 74 65 72 |    -- e|mail ter|
|00002e00| 6d 69 6e 75 73 20 6e 61 | 6d 65 5c 6e 5c 22 69 6e |minus na|me\n\"in|
|00002e10| 69 74 69 61 6c 73 5c 22 | 20 20 20 20 20 2d 2d 20 |itials\"|     -- |
|00002e20| 69 6e 69 74 69 61 6c 73 | 20 6f 66 20 61 75 74 68 |initials| of auth|
|00002e30| 6f 72 5c 6e 5c 22 66 69 | 72 73 74 6e 61 6d 65 5c |or\n\"fi|rstname\|
|00002e40| 22 20 20 20 20 2d 2d 20 | 66 69 72 73 74 20 6e 61 |"    -- |first na|
|00002e50| 6d 65 20 6f 66 20 61 75 | 74 68 6f 72 5c 6e 5c 22 |me of au|thor\n\"|
|00002e60| 6c 61 73 74 6e 61 6d 65 | 5c 22 20 20 20 20 20 2d |lastname|\"     -|
|00002e70| 2d 20 6c 61 73 74 20 6e | 61 6d 65 20 6f 66 20 61 |- last n|ame of a|
|00002e80| 75 74 68 6f 72 5c 6e 5c | 22 6d 69 64 64 6c 65 6e |uthor\n\|"middlen|
|00002e90| 61 6d 65 2d 31 5c 22 20 | 2d 2d 20 66 69 72 73 74 |ame-1\" |-- first|
|00002ea0| 20 6d 69 64 64 6c 65 20 | 6e 61 6d 65 20 6f 66 20 | middle |name of |
|00002eb0| 61 75 74 68 6f 72 5c 6e | 5c 22 6d 69 64 64 6c 65 |author\n|\"middle|
|00002ec0| 6e 61 6d 65 2d 32 5c 22 | 20 2d 2d 20 73 65 63 6f |name-2\"| -- seco|
|00002ed0| 6e 64 20 6d 69 64 64 6c | 65 20 6e 61 6d 65 20 6f |nd middl|e name o|
|00002ee0| 66 20 61 75 74 68 6f 72 | 5c 6e 2e 2e 2e 5c 6e 5c |f author|\n...\n\|
|00002ef0| 6e 4d 69 64 64 6c 65 20 | 6e 61 6d 65 20 69 6e 64 |nMiddle |name ind|
|00002f00| 65 78 65 73 20 63 61 6e | 20 62 65 20 61 6e 79 20 |exes can| be any |
|00002f10| 70 6f 73 69 74 69 76 65 | 20 69 6e 74 65 67 65 72 |positive| integer|
|00002f20| 20 67 72 65 61 74 65 72 | 20 74 68 61 6e 20 30 2c | greater| than 0,|
|00002f30| 5c 6e 61 6c 74 68 6f 75 | 67 68 20 69 74 20 69 73 |\nalthou|gh it is|
|00002f40| 20 75 6e 6c 69 6b 65 6c | 79 20 74 68 61 74 20 6d | unlikel|y that m|
|00002f50| 61 6e 79 20 61 75 74 68 | 6f 72 73 20 77 69 6c 6c |any auth|ors will|
|00002f60| 20 73 75 70 70 6c 79 20 | 6d 6f 72 65 20 74 68 61 | supply |more tha|
|00002f70| 6e 20 6f 6e 65 5c 6e 6d | 69 64 64 6c 65 20 6e 61 |n one\nm|iddle na|
|00002f80| 6d 65 2c 20 69 66 20 74 | 68 61 74 20 6d 61 6e 79 |me, if t|hat many|
|00002f90| 2e 20 20 54 68 65 20 73 | 74 72 69 6e 67 20 6f 66 |.  The s|tring of|
|00002fa0| 20 61 6c 6c 20 6d 69 64 | 64 6c 65 20 6e 61 6d 65 | all mid|dle name|
|00002fb0| 73 20 69 73 5c 6e 61 73 | 73 6f 63 69 61 74 65 64 |s is\nas|sociated|
|00002fc0| 20 77 69 74 68 20 74 68 | 65 20 6b 65 79 20 5c 22 | with th|e key \"|
|00002fd0| 6d 69 64 64 6c 65 6e 61 | 6d 65 73 5c 22 2e 22 20 |middlena|mes\"." |
|00002fe0| 3a 74 79 70 65 20 27 28 | 72 65 70 65 61 74 20 73 |:type '(|repeat s|
|00002ff0| 74 72 69 6e 67 29 20 3a | 67 72 6f 75 70 20 27 73 |tring) :|group 's|
|00003000| 75 70 65 72 63 69 74 65 | 2d 61 74 74 72 29 0a 28 |upercite|-attr).(|
|00003010| 63 75 73 74 6f 6d 2d 64 | 65 63 6c 61 72 65 2d 76 |custom-d|eclare-v|
|00003020| 61 72 69 61 62 6c 65 20 | 27 73 63 2d 61 74 74 72 |ariable |'sc-attr|
|00003030| 69 62 2d 73 65 6c 65 63 | 74 69 6f 6e 2d 6c 69 73 |ib-selec|tion-lis|
|00003040| 74 20 27 6e 69 6c 20 22 | 2a 41 6e 20 61 6c 69 73 |t 'nil "|*An alis|
|00003050| 74 20 66 6f 72 20 73 65 | 6c 65 63 74 69 6e 67 20 |t for se|lecting |
|00003060| 70 72 65 66 65 72 72 65 | 64 20 61 74 74 72 69 62 |preferre|d attrib|
|00003070| 75 74 69 6f 6e 20 62 61 | 73 65 64 20 6f 6e 20 6d |ution ba|sed on m|
|00003080| 61 69 6c 20 68 65 61 64 | 65 72 73 2e 5c 6e 45 61 |ail head|ers.\nEa|
|00003090| 63 68 20 65 6c 65 6d 65 | 6e 74 20 6f 66 20 74 68 |ch eleme|nt of th|
|000030a0| 69 73 20 6c 69 73 74 20 | 68 61 73 20 74 68 65 20 |is list |has the |
|000030b0| 66 6f 6c 6c 6f 77 69 6e | 67 20 66 6f 72 6d 3a 5c |followin|g form:\|
|000030c0| 6e 5c 6e 20 20 20 28 49 | 4e 46 4f 4b 45 59 20 28 |n\n   (I|NFOKEY (|
|000030d0| 28 52 45 47 45 58 50 20 | 2e 20 41 54 54 52 49 42 |(REGEXP |. ATTRIB|
|000030e0| 55 54 49 4f 4e 29 5c 6e | 20 20 20 20 20 20 20 20 |UTION)\n|        |
|000030f0| 20 20 20 20 20 28 52 45 | 47 45 58 50 20 2e 20 41 |     (RE|GEXP . A|
|00003100| 54 54 52 49 42 55 54 49 | 4f 4e 29 5c 6e 20 20 20 |TTRIBUTI|ON)\n   |
|00003110| 20 20 20 20 20 20 20 20 | 20 20 28 2e 2e 2e 29 29 |        |  (...))|
|00003120| 29 5c 6e 5c 6e 57 68 65 | 72 65 20 49 4e 46 4f 4b |)\n\nWhe|re INFOK|
|00003130| 45 59 20 69 73 20 61 20 | 6b 65 79 20 66 6f 72 20 |EY is a |key for |
|00003140| 60 73 63 2d 6d 61 69 6c | 2d 66 69 65 6c 64 27 2c |`sc-mail|-field',|
|00003150| 20 52 45 47 45 58 50 20 | 69 73 20 61 20 72 65 67 | REGEXP |is a reg|
|00003160| 75 6c 61 72 5c 6e 65 78 | 70 72 65 73 73 69 6f 6e |ular\nex|pression|
|00003170| 20 74 6f 20 6d 61 74 63 | 68 20 61 67 61 69 6e 73 | to matc|h agains|
|00003180| 74 20 74 68 65 20 49 4e | 46 4f 4b 45 59 27 73 20 |t the IN|FOKEY's |
|00003190| 76 61 6c 75 65 2e 20 41 | 54 54 52 49 42 55 54 49 |value. A|TTRIBUTI|
|000031a0| 4f 4e 20 63 61 6e 20 62 | 65 20 61 5c 6e 73 74 72 |ON can b|e a\nstr|
|000031b0| 69 6e 67 20 6f 72 20 61 | 20 6c 69 73 74 2e 20 20 |ing or a| list.  |
|000031c0| 49 66 20 69 74 73 20 61 | 20 73 74 72 69 6e 67 2c |If its a| string,|
|000031d0| 20 74 68 65 6e 20 69 74 | 20 69 73 20 74 68 65 20 | then it| is the |
|000031e0| 61 74 74 72 69 62 75 74 | 69 6f 6e 20 74 68 61 74 |attribut|ion that|
|000031f0| 20 69 73 5c 6e 73 65 6c | 65 63 74 65 64 20 62 79 | is\nsel|ected by|
|00003200| 20 60 73 63 2d 73 65 6c | 65 63 74 2d 61 74 74 72 | `sc-sel|ect-attr|
|00003210| 69 62 75 74 69 6f 6e 27 | 2e 20 20 49 66 20 69 74 |ibution'|.  If it|
|00003220| 20 69 73 20 61 20 6c 69 | 73 74 2c 20 69 74 20 69 | is a li|st, it i|
|00003230| 73 20 60 65 76 61 6c 27 | 64 5c 6e 61 6e 64 20 74 |s `eval'|d\nand t|
|00003240| 68 65 20 72 65 74 75 72 | 6e 20 76 61 6c 75 65 20 |he retur|n value |
|00003250| 6d 75 73 74 20 62 65 20 | 61 20 73 74 72 69 6e 67 |must be |a string|
|00003260| 2c 20 77 68 69 63 68 20 | 69 73 20 75 73 65 64 20 |, which |is used |
|00003270| 61 73 20 74 68 65 20 73 | 65 6c 65 63 74 65 64 5c |as the s|elected\|
|00003280| 6e 61 74 74 72 69 62 75 | 74 69 6f 6e 2e 20 20 4e |nattribu|tion.  N|
|00003290| 6f 74 65 20 74 68 61 74 | 20 74 68 65 20 76 61 72 |ote that| the var|
|000032a0| 69 61 62 6c 65 20 60 73 | 63 2d 70 72 65 66 65 72 |iable `s|c-prefer|
|000032b0| 72 65 64 2d 61 74 74 72 | 69 62 75 74 69 6f 6e 2d |red-attr|ibution-|
|000032c0| 6c 69 73 74 27 5c 6e 6d | 75 73 74 20 63 6f 6e 74 |list'\nm|ust cont|
|000032d0| 61 69 6e 20 61 6e 20 65 | 6c 65 6d 65 6e 74 20 6f |ain an e|lement o|
|000032e0| 66 20 74 68 65 20 73 74 | 72 69 6e 67 20 5c 22 73 |f the st|ring \"s|
|000032f0| 63 2d 63 6f 6e 73 75 6c | 74 5c 22 20 66 6f 72 20 |c-consul|t\" for |
|00003300| 74 68 69 73 20 76 61 72 | 69 61 62 6c 65 5c 6e 74 |this var|iable\nt|
|00003310| 6f 20 62 65 20 63 6f 6e | 73 75 6c 74 65 64 20 64 |o be con|sulted d|
|00003320| 75 72 69 6e 67 20 61 74 | 74 72 69 62 75 74 69 6f |uring at|tributio|
|00003330| 6e 20 73 65 6c 65 63 74 | 69 6f 6e 2e 22 20 3a 74 |n select|ion." :t|
|00003340| 79 70 65 20 27 28 72 65 | 70 65 61 74 20 28 6c 69 |ype '(re|peat (li|
|00003350| 73 74 20 73 79 6d 62 6f | 6c 20 28 72 65 70 65 61 |st symbo|l (repea|
|00003360| 74 20 28 63 6f 6e 73 20 | 72 65 67 65 78 70 20 28 |t (cons |regexp (|
|00003370| 63 68 6f 69 63 65 20 28 | 72 65 70 65 61 74 20 28 |choice (|repeat (|
|00003380| 72 65 70 65 61 74 20 73 | 65 78 70 29 29 20 73 79 |repeat s|exp)) sy|
|00003390| 6d 62 6f 6c 29 29 29 29 | 29 20 3a 67 72 6f 75 70 |mbol))))|) :group|
|000033a0| 20 27 73 75 70 65 72 63 | 69 74 65 2d 61 74 74 72 | 'superc|ite-attr|
|000033b0| 29 0a 28 63 75 73 74 6f | 6d 2d 64 65 63 6c 61 72 |).(custo|m-declar|
|000033c0| 65 2d 76 61 72 69 61 62 | 6c 65 20 27 73 63 2d 61 |e-variab|le 'sc-a|
|000033d0| 74 74 72 69 62 73 2d 70 | 72 65 73 65 6c 65 63 74 |ttribs-p|reselect|
|000033e0| 2d 68 6f 6f 6b 20 27 6e | 69 6c 20 22 2a 48 6f 6f |-hook 'n|il "*Hoo|
|000033f0| 6b 20 74 6f 20 72 75 6e | 20 62 65 66 6f 72 65 20 |k to run| before |
|00003400| 73 65 6c 65 63 74 69 6e | 67 20 61 6e 20 61 74 74 |selectin|g an att|
|00003410| 72 69 62 75 74 69 6f 6e | 2e 22 20 3a 74 79 70 65 |ribution|." :type|
|00003420| 20 27 68 6f 6f 6b 20 3a | 67 72 6f 75 70 20 27 73 | 'hook :|group 's|
|00003430| 75 70 65 72 63 69 74 65 | 2d 61 74 74 72 20 3a 67 |upercite|-attr :g|
|00003440| 72 6f 75 70 20 27 73 75 | 70 65 72 63 69 74 65 2d |roup 'su|percite-|
|00003450| 68 6f 6f 6b 73 29 0a 28 | 63 75 73 74 6f 6d 2d 64 |hooks).(|custom-d|
|00003460| 65 63 6c 61 72 65 2d 76 | 61 72 69 61 62 6c 65 20 |eclare-v|ariable |
|00003470| 27 73 63 2d 61 74 74 72 | 69 62 73 2d 70 6f 73 74 |'sc-attr|ibs-post|
|00003480| 73 65 6c 65 63 74 2d 68 | 6f 6f 6b 20 27 6e 69 6c |select-h|ook 'nil|
|00003490| 20 22 2a 48 6f 6f 6b 20 | 74 6f 20 72 75 6e 20 61 | "*Hook |to run a|
|000034a0| 66 74 65 72 20 73 65 6c | 65 63 74 69 6e 67 20 61 |fter sel|ecting a|
|000034b0| 6e 20 61 74 74 72 69 62 | 75 74 69 6f 6e 2c 20 62 |n attrib|ution, b|
|000034c0| 75 74 20 62 65 66 6f 72 | 65 20 63 6f 6e 66 69 72 |ut befor|e confir|
|000034d0| 6d 61 74 69 6f 6e 2e 22 | 20 3a 74 79 70 65 20 27 |mation."| :type '|
|000034e0| 68 6f 6f 6b 20 3a 67 72 | 6f 75 70 20 27 73 75 70 |hook :gr|oup 'sup|
|000034f0| 65 72 63 69 74 65 2d 61 | 74 74 72 20 3a 67 72 6f |ercite-a|ttr :gro|
|00003500| 75 70 20 27 73 75 70 65 | 72 63 69 74 65 2d 68 6f |up 'supe|rcite-ho|
|00003510| 6f 6b 73 29 0a 28 63 75 | 73 74 6f 6d 2d 64 65 63 |oks).(cu|stom-dec|
|00003520| 6c 61 72 65 2d 76 61 72 | 69 61 62 6c 65 20 27 73 |lare-var|iable 's|
|00003530| 63 2d 70 72 65 2d 63 69 | 74 65 2d 68 6f 6f 6b 20 |c-pre-ci|te-hook |
|00003540| 27 6e 69 6c 20 22 2a 48 | 6f 6f 6b 20 74 6f 20 72 |'nil "*H|ook to r|
|00003550| 75 6e 20 62 65 66 6f 72 | 65 20 63 69 74 69 6e 67 |un befor|e citing|
|00003560| 20 61 20 72 65 67 69 6f | 6e 20 6f 66 20 74 65 78 | a regio|n of tex|
|00003570| 74 2e 22 20 3a 74 79 70 | 65 20 27 68 6f 6f 6b 20 |t." :typ|e 'hook |
|00003580| 3a 67 72 6f 75 70 20 27 | 73 75 70 65 72 63 69 74 |:group '|supercit|
|00003590| 65 2d 63 69 74 65 20 3a | 67 72 6f 75 70 20 27 73 |e-cite :|group 's|
|000035a0| 75 70 65 72 63 69 74 65 | 2d 68 6f 6f 6b 73 29 0a |upercite|-hooks).|
|000035b0| 28 63 75 73 74 6f 6d 2d | 64 65 63 6c 61 72 65 2d |(custom-|declare-|
|000035c0| 76 61 72 69 61 62 6c 65 | 20 27 73 63 2d 70 72 65 |variable| 'sc-pre|
|000035d0| 2d 75 6e 63 69 74 65 2d | 68 6f 6f 6b 20 27 6e 69 |-uncite-|hook 'ni|
|000035e0| 6c 20 22 2a 48 6f 6f 6b | 20 74 6f 20 72 75 6e 20 |l "*Hook| to run |
|000035f0| 62 65 66 6f 72 65 20 75 | 6e 63 69 74 69 6e 67 20 |before u|nciting |
|00003600| 61 20 72 65 67 69 6f 6e | 20 6f 66 20 74 65 78 74 |a region| of text|
|00003610| 2e 22 20 3a 74 79 70 65 | 20 27 68 6f 6f 6b 20 3a |." :type| 'hook :|
|00003620| 67 72 6f 75 70 20 27 73 | 75 70 65 72 63 69 74 65 |group 's|upercite|
|00003630| 2d 63 69 74 65 20 3a 67 | 72 6f 75 70 20 27 73 75 |-cite :g|roup 'su|
|00003640| 70 65 72 63 69 74 65 2d | 68 6f 6f 6b 73 29 0a 28 |percite-|hooks).(|
|00003650| 63 75 73 74 6f 6d 2d 64 | 65 63 6c 61 72 65 2d 76 |custom-d|eclare-v|
|00003660| 61 72 69 61 62 6c 65 20 | 27 73 63 2d 70 72 65 2d |ariable |'sc-pre-|
|00003670| 72 65 63 69 74 65 2d 68 | 6f 6f 6b 20 27 6e 69 6c |recite-h|ook 'nil|
|00003680| 20 22 2a 48 6f 6f 6b 20 | 74 6f 20 72 75 6e 20 62 | "*Hook |to run b|
|00003690| 65 66 6f 72 65 20 72 65 | 63 69 74 69 6e 67 20 61 |efore re|citing a|
|000036a0| 20 72 65 67 69 6f 6e 20 | 6f 66 20 74 65 78 74 2e | region |of text.|
|000036b0| 22 20 3a 74 79 70 65 20 | 27 68 6f 6f 6b 20 3a 67 |" :type |'hook :g|
|000036c0| 72 6f 75 70 20 27 73 75 | 70 65 72 63 69 74 65 2d |roup 'su|percite-|
|000036d0| 63 69 74 65 20 3a 67 72 | 6f 75 70 20 27 73 75 70 |cite :gr|oup 'sup|
|000036e0| 65 72 63 69 74 65 2d 68 | 6f 6f 6b 73 29 0a 28 63 |ercite-h|ooks).(c|
|000036f0| 75 73 74 6f 6d 2d 64 65 | 63 6c 61 72 65 2d 76 61 |ustom-de|clare-va|
|00003700| 72 69 61 62 6c 65 20 27 | 73 63 2d 70 72 65 66 65 |riable '|sc-prefe|
|00003710| 72 72 65 64 2d 68 65 61 | 64 65 72 2d 73 74 79 6c |rred-hea|der-styl|
|00003720| 65 20 27 34 20 22 2a 49 | 6e 64 65 78 20 69 6e 74 |e '4 "*I|ndex int|
|00003730| 6f 20 60 73 63 2d 72 65 | 77 72 69 74 65 2d 68 65 |o `sc-re|write-he|
|00003740| 61 64 65 72 2d 6c 69 73 | 74 27 20 73 70 65 63 69 |ader-lis|t' speci|
|00003750| 66 79 69 6e 67 20 70 72 | 65 66 65 72 72 65 64 20 |fying pr|eferred |
|00003760| 68 65 61 64 65 72 20 73 | 74 79 6c 65 2e 5c 6e 49 |header s|tyle.\nI|
|00003770| 6e 64 65 78 20 7a 65 72 | 6f 20 61 63 63 65 73 73 |ndex zer|o access|
|00003780| 65 73 20 74 68 65 20 66 | 69 72 73 74 20 66 75 6e |es the f|irst fun|
|00003790| 63 74 69 6f 6e 20 69 6e | 20 74 68 65 20 6c 69 73 |ction in| the lis|
|000037a0| 74 2e 22 20 3a 74 79 70 | 65 20 27 69 6e 74 65 67 |t." :typ|e 'integ|
|000037b0| 65 72 20 3a 67 72 6f 75 | 70 20 27 73 75 70 65 72 |er :grou|p 'super|
|000037c0| 63 69 74 65 29 0a 28 63 | 75 73 74 6f 6d 2d 64 65 |cite).(c|ustom-de|
|000037d0| 63 6c 61 72 65 2d 76 61 | 72 69 61 62 6c 65 20 27 |clare-va|riable '|
|000037e0| 73 63 2d 72 65 66 65 72 | 65 6e 63 65 2d 74 61 67 |sc-refer|ence-tag|
|000037f0| 2d 73 74 72 69 6e 67 20 | 27 22 3e 3e 3e 3e 3e 20 |-string |'">>>>> |
|00003800| 22 20 22 2a 53 74 72 69 | 6e 67 20 75 73 65 64 20 |" "*Stri|ng used |
|00003810| 61 74 20 74 68 65 20 62 | 65 67 69 6e 6e 69 6e 67 |at the b|eginning|
|00003820| 20 6f 66 20 62 75 69 6c | 74 2d 69 6e 20 72 65 66 | of buil|t-in ref|
|00003830| 65 72 65 6e 63 65 20 68 | 65 61 64 65 72 73 2e 22 |erence h|eaders."|
|00003840| 20 3a 74 79 70 65 20 27 | 73 74 72 69 6e 67 20 3a | :type '|string :|
|00003850| 67 72 6f 75 70 20 27 73 | 75 70 65 72 63 69 74 65 |group 's|upercite|
|00003860| 29 0a 28 63 75 73 74 6f | 6d 2d 64 65 63 6c 61 72 |).(custo|m-declar|
|00003870| 65 2d 76 61 72 69 61 62 | 6c 65 20 27 73 63 2d 72 |e-variab|le 'sc-r|
|00003880| 65 77 72 69 74 65 2d 68 | 65 61 64 65 72 2d 6c 69 |ewrite-h|eader-li|
|00003890| 73 74 20 27 27 28 28 73 | 63 2d 6e 6f 2d 68 65 61 |st ''((s|c-no-hea|
|000038a0| 64 65 72 29 20 28 73 63 | 2d 68 65 61 64 65 72 2d |der) (sc|-header-|
|000038b0| 6f 6e 2d 73 61 69 64 29 | 20 28 73 63 2d 68 65 61 |on-said)| (sc-hea|
|000038c0| 64 65 72 2d 69 6e 61 72 | 74 69 63 6c 65 2d 77 72 |der-inar|ticle-wr|
|000038d0| 69 74 65 73 29 20 28 73 | 63 2d 68 65 61 64 65 72 |ites) (s|c-header|
|000038e0| 2d 72 65 67 61 72 64 69 | 6e 67 2d 61 64 64 73 29 |-regardi|ng-adds)|
|000038f0| 20 28 73 63 2d 68 65 61 | 64 65 72 2d 61 74 74 72 | (sc-hea|der-attr|
|00003900| 69 62 75 74 65 64 2d 77 | 72 69 74 65 73 29 20 28 |ibuted-w|rites) (|
|00003910| 73 63 2d 68 65 61 64 65 | 72 2d 61 75 74 68 6f 72 |sc-heade|r-author|
|00003920| 2d 77 72 69 74 65 73 29 | 20 28 73 63 2d 68 65 61 |-writes)| (sc-hea|
|00003930| 64 65 72 2d 76 65 72 62 | 6f 73 65 29 20 28 73 63 |der-verb|ose) (sc|
|00003940| 2d 6e 6f 2d 62 6c 61 6e | 6b 2d 6c 69 6e 65 2d 6f |-no-blan|k-line-o|
|00003950| 72 2d 68 65 61 64 65 72 | 29 20 28 73 63 2d 68 65 |r-header|) (sc-he|
|00003960| 61 64 65 72 2d 61 75 74 | 68 6f 72 2d 65 6d 61 69 |ader-aut|hor-emai|
|00003970| 6c 2d 77 72 69 74 65 73 | 29 29 20 22 2a 4c 69 73 |l-writes|)) "*Lis|
|00003980| 74 20 6f 66 20 72 65 66 | 65 72 65 6e 63 65 20 68 |t of ref|erence h|
|00003990| 65 61 64 65 72 20 72 65 | 77 72 69 74 65 20 66 75 |eader re|write fu|
|000039a0| 6e 63 74 69 6f 6e 73 2e | 5c 6e 54 68 65 20 76 61 |nctions.|\nThe va|
|000039b0| 72 69 61 62 6c 65 20 60 | 73 63 2d 70 72 65 66 65 |riable `|sc-prefe|
|000039c0| 72 72 65 64 2d 68 65 61 | 64 65 72 2d 73 74 79 6c |rred-hea|der-styl|
|000039d0| 65 27 20 63 6f 6e 74 72 | 6f 6c 73 20 77 68 69 63 |e' contr|ols whic|
|000039e0| 68 20 66 75 6e 63 74 69 | 6f 6e 20 69 6e 5c 6e 74 |h functi|on in\nt|
|000039f0| 68 69 73 20 6c 69 73 74 | 20 69 73 20 63 68 6f 73 |his list| is chos|
|00003a00| 65 6e 20 66 6f 72 20 61 | 75 74 6f 6d 61 74 69 63 |en for a|utomatic|
|00003a10| 20 72 65 66 65 72 65 6e | 63 65 20 68 65 61 64 65 | referen|ce heade|
|00003a20| 72 20 69 6e 73 65 72 74 | 69 6f 6e 73 2e 5c 6e 45 |r insert|ions.\nE|
|00003a30| 6c 65 63 74 72 69 63 20 | 72 65 66 65 72 65 6e 63 |lectric |referenc|
|00003a40| 65 20 6d 6f 64 65 20 77 | 69 6c 6c 20 63 79 63 6c |e mode w|ill cycl|
|00003a50| 65 20 74 68 72 6f 75 67 | 68 20 74 68 69 73 20 6c |e throug|h this l|
|00003a60| 69 73 74 20 6f 66 20 66 | 75 6e 63 74 69 6f 6e 73 |ist of f|unctions|
|00003a70| 2e 22 20 3a 74 79 70 65 | 20 27 28 72 65 70 65 61 |." :type| '(repea|
|00003a80| 74 20 73 65 78 70 29 20 | 3a 67 72 6f 75 70 20 27 |t sexp) |:group '|
|00003a90| 73 75 70 65 72 63 69 74 | 65 29 0a 28 63 75 73 74 |supercit|e).(cust|
|00003aa0| 6f 6d 2d 64 65 63 6c 61 | 72 65 2d 76 61 72 69 61 |om-decla|re-varia|
|00003ab0| 62 6c 65 20 27 73 63 2d | 74 69 74 6c 65 63 75 65 |ble 'sc-|titlecue|
|00003ac0| 2d 72 65 67 65 78 70 20 | 27 22 5c 5c 73 20 2b 2d |-regexp |'"\\s +-|
|00003ad0| 2b 5c 5c 73 20 2b 22 20 | 22 2a 52 65 67 75 6c 61 |+\\s +" |"*Regula|
|00003ae0| 72 20 65 78 70 72 65 73 | 73 69 6f 6e 20 64 65 73 |r expres|sion des|
|00003af0| 63 72 69 62 69 6e 67 20 | 74 68 65 20 73 65 70 61 |cribing |the sepa|
|00003b00| 72 61 74 6f 72 20 62 65 | 74 77 65 65 6e 20 6e 61 |rator be|tween na|
|00003b10| 6d 65 73 20 61 6e 64 20 | 74 69 74 6c 65 73 2e 5c |mes and |titles.\|
|00003b20| 6e 53 65 74 20 74 6f 20 | 6e 69 6c 20 74 6f 20 74 |nSet to |nil to t|
|00003b30| 72 65 61 74 20 65 6e 74 | 69 72 65 20 66 69 65 6c |reat ent|ire fiel|
|00003b40| 64 20 61 73 20 61 20 6e | 61 6d 65 2e 22 20 3a 74 |d as a n|ame." :t|
|00003b50| 79 70 65 20 27 28 63 68 | 6f 69 63 65 20 28 63 6f |ype '(ch|oice (co|
|00003b60| 6e 73 74 20 3a 74 61 67 | 20 22 65 6e 74 69 72 65 |nst :tag| "entire|
|00003b70| 20 66 69 65 6c 64 20 61 | 73 20 6e 61 6d 65 22 20 | field a|s name" |
|00003b80| 6e 69 6c 29 20 72 65 67 | 65 78 70 29 20 3a 67 72 |nil) reg|exp) :gr|
|00003b90| 6f 75 70 20 27 73 75 70 | 65 72 63 69 74 65 2d 61 |oup 'sup|ercite-a|
|00003ba0| 74 74 72 29 0a 28 63 75 | 73 74 6f 6d 2d 64 65 63 |ttr).(cu|stom-dec|
|00003bb0| 6c 61 72 65 2d 76 61 72 | 69 61 62 6c 65 20 27 73 |lare-var|iable 's|
|00003bc0| 63 2d 75 73 65 2d 6f 6e | 6c 79 2d 70 72 65 66 65 |c-use-on|ly-prefe|
|00003bd0| 72 65 6e 63 65 2d 70 20 | 27 6e 69 6c 20 22 2a 43 |rence-p |'nil "*C|
|00003be0| 6f 6e 74 72 6f 6c 73 20 | 77 68 61 74 20 68 61 70 |ontrols |what hap|
|00003bf0| 70 65 6e 73 20 77 68 65 | 6e 20 74 68 65 20 70 72 |pens whe|n the pr|
|00003c00| 65 66 65 72 72 65 64 20 | 61 74 74 72 69 62 75 74 |eferred |attribut|
|00003c10| 69 6f 6e 20 63 61 6e 6e | 6f 74 20 62 65 20 66 6f |ion cann|ot be fo|
|00003c20| 75 6e 64 2e 5c 6e 49 66 | 20 6e 6f 6e 2d 6e 69 6c |und.\nIf| non-nil|
|00003c30| 2c 20 74 68 65 6e 20 60 | 73 63 2d 64 65 66 61 75 |, then `|sc-defau|
|00003c40| 6c 74 2d 61 74 74 72 69 | 62 75 74 69 6f 6e 27 20 |lt-attri|bution' |
|00003c50| 77 69 6c 6c 20 62 65 20 | 75 73 65 64 2e 20 20 49 |will be |used.  I|
|00003c60| 66 20 6e 69 6c 2c 20 74 | 68 65 6e 5c 6e 73 6f 6d |f nil, t|hen\nsom|
|00003c70| 65 20 73 65 63 6f 6e 64 | 61 72 79 20 73 63 68 65 |e second|ary sche|
|00003c80| 6d 65 20 77 69 6c 6c 20 | 62 65 20 65 6d 70 6c 6f |me will |be emplo|
|00003c90| 79 65 64 20 74 6f 20 66 | 69 6e 64 20 61 20 73 75 |yed to f|ind a su|
|00003ca0| 69 74 61 62 6c 65 20 61 | 74 74 72 69 62 75 74 69 |itable a|ttributi|
|00003cb0| 6f 6e 5c 6e 73 74 72 69 | 6e 67 2e 22 20 3a 74 79 |on\nstri|ng." :ty|
|00003cc0| 70 65 20 27 62 6f 6f 6c | 65 61 6e 20 3a 67 72 6f |pe 'bool|ean :gro|
|00003cd0| 75 70 20 27 73 75 70 65 | 72 63 69 74 65 2d 61 74 |up 'supe|rcite-at|
|00003ce0| 74 72 29 0a 23 40 32 37 | 20 53 75 70 65 72 63 69 |tr).#@27| Superci|
|00003cf0| 74 65 20 76 65 72 73 69 | 6f 6e 20 6e 75 6d 62 65 |te versi|on numbe|
|00003d00| 72 2e 1f 0a 28 64 65 66 | 63 6f 6e 73 74 20 73 63 |r...(def|const sc|
|00003d10| 2d 76 65 72 73 69 6f 6e | 20 22 33 2e 31 22 20 28 |-version| "3.1" (|
|00003d20| 23 24 20 2e 20 31 35 35 | 39 33 29 29 0a 23 40 34 |#$ . 155|93)).#@4|
|00003d30| 37 20 41 64 64 72 65 73 | 73 20 61 63 63 65 70 74 |7 Addres|s accept|
|00003d40| 69 6e 67 20 73 75 62 6d | 69 73 73 69 6f 6e 73 20 |ing subm|issions |
|00003d50| 6f 66 20 62 75 67 20 72 | 65 70 6f 72 74 73 2e 1f |of bug r|eports..|
|00003d60| 0a 28 64 65 66 63 6f 6e | 73 74 20 73 63 2d 68 65 |.(defcon|st sc-he|
|00003d70| 6c 70 2d 61 64 64 72 65 | 73 73 20 22 73 75 70 65 |lp-addre|ss "supe|
|00003d80| 72 63 69 74 65 2d 68 65 | 6c 70 40 61 6e 74 68 65 |rcite-he|lp@anthe|
|00003d90| 6d 2e 6e 6c 6d 2e 6e 69 | 68 2e 67 6f 76 22 20 28 |m.nlm.ni|h.gov" (|
|00003da0| 23 24 20 2e 20 31 35 36 | 36 36 29 29 0a 23 40 36 |#$ . 156|66)).#@6|
|00003db0| 31 20 41 6c 69 73 74 20 | 6f 66 20 6d 61 69 6c 20 |1 Alist |of mail |
|00003dc0| 68 65 61 64 65 72 20 69 | 6e 66 6f 72 6d 61 74 69 |header i|nformati|
|00003dd0| 6f 6e 20 67 6c 65 61 6e | 65 64 20 66 72 6f 6d 20 |on glean|ed from |
|00003de0| 72 65 70 6c 79 20 62 75 | 66 66 65 72 2e 1f 0a 28 |reply bu|ffer...(|
|00003df0| 64 65 66 76 61 72 20 73 | 63 2d 6d 61 69 6c 2d 69 |defvar s|c-mail-i|
|00003e00| 6e 66 6f 20 6e 69 6c 20 | 28 23 24 20 2e 20 31 35 |nfo nil |(#$ . 15|
|00003e10| 37 39 34 29 29 0a 23 40 | 34 34 20 41 6c 69 73 74 |794)).#@|44 Alist|
|00003e20| 20 6f 66 20 61 74 74 72 | 69 62 75 74 69 6f 6e 73 | of attr|ibutions|
|00003e30| 20 66 6f 72 20 75 73 65 | 20 77 68 65 6e 20 63 69 | for use| when ci|
|00003e40| 74 69 6e 67 2e 1f 0a 28 | 64 65 66 76 61 72 20 73 |ting...(|defvar s|
|00003e50| 63 2d 61 74 74 72 69 62 | 75 74 69 6f 6e 73 20 6e |c-attrib|utions n|
|00003e60| 69 6c 20 28 23 24 20 2e | 20 31 35 38 39 39 29 29 |il (#$ .| 15899))|
|00003e70| 0a 23 40 31 35 30 20 41 | 20 6c 69 73 74 20 64 65 |.#@150 A| list de|
|00003e80| 73 63 72 69 62 69 6e 67 | 20 77 68 61 74 20 76 65 |scribing| what ve|
|00003e90| 72 73 69 6f 6e 20 6f 66 | 20 45 6d 61 63 73 20 77 |rsion of| Emacs w|
|00003ea0| 65 27 72 65 20 72 75 6e | 6e 69 6e 67 20 6f 6e 2e |e're run|ning on.|
|00003eb0| 0a 4b 6e 6f 77 6e 20 66 | 6c 61 76 6f 72 73 20 61 |.Known f|lavors a|
|00003ec0| 72 65 3a 0a 0a 41 6c 6c | 20 47 4e 55 31 38 27 73 |re:..All| GNU18's|
|00003ed0| 3a 20 28 76 31 38 20 47 | 4e 55 29 0a 46 53 46 31 |: (v18 G|NU).FSF1|
|00003ee0| 39 2e 78 20 20 20 20 3a | 20 28 76 31 39 20 47 4e |9.x    :| (v19 GN|
|00003ef0| 55 29 0a 4c 75 63 69 64 | 31 39 2e 78 20 20 3a 20 |U).Lucid|19.x  : |
|00003f00| 28 76 31 39 20 4c 75 63 | 69 64 29 1f 0a 28 64 65 |(v19 Luc|id)..(de|
|00003f10| 66 63 6f 6e 73 74 20 73 | 63 2d 65 6d 61 63 73 2d |fconst s|c-emacs-|
|00003f20| 66 65 61 74 75 72 65 73 | 20 28 62 79 74 65 2d 63 |features| (byte-c|
|00003f30| 6f 64 65 20 22 c0 c1 1a | 1b 0c c5 c6 4f c7 98 ac |ode "...|....O...|
|00003f40| 88 0c c5 c6 4f c8 98 ab | 82 c9 13 ca cb 0c 5c 22 |....O...|......\"|
|00003f50| ab 82 cc 12 0b 5c 6e 2a | 44 87 22 20 5b 76 31 38 |.....\n*|D." [v18|
|00003f60| 20 47 4e 55 20 66 6c 61 | 76 6f 72 20 76 65 72 73 | GNU fla|vor vers|
|00003f70| 69 6f 6e 20 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |ion emac|s-versio|
|00003f80| 6e 20 30 20 32 20 22 31 | 39 22 20 22 32 30 22 20 |n 0 2 "1|9" "20" |
|00003f90| 76 31 39 20 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |v19 stri|ng-match|
|00003fa0| 20 22 58 45 6d 61 63 73 | 22 20 4c 75 63 69 64 5d | "XEmacs|" Lucid]|
|00003fb0| 20 33 29 20 28 23 24 20 | 2e 20 31 35 39 39 31 29 | 3) (#$ |. 15991)|
|00003fc0| 29 0a 23 40 34 37 20 54 | 65 6d 70 6f 72 61 72 79 |).#@47 T|emporary|
|00003fd0| 20 72 65 67 65 70 78 20 | 64 65 73 63 72 69 62 69 | regepx |describi|
|00003fe0| 6e 67 20 6e 65 73 74 65 | 64 20 63 69 74 61 74 69 |ng neste|d citati|
|00003ff0| 6f 6e 73 2e 1f 0a 28 64 | 65 66 76 61 72 20 73 63 |ons...(d|efvar sc|
|00004000| 2d 74 6d 70 2d 6e 65 73 | 74 65 64 2d 72 65 67 65 |-tmp-nes|ted-rege|
|00004010| 78 70 20 6e 69 6c 20 28 | 23 24 20 2e 20 31 36 33 |xp nil (|#$ . 163|
|00004020| 32 37 29 29 0a 23 40 35 | 31 20 54 65 6d 70 6f 72 |27)).#@5|1 Tempor|
|00004030| 61 72 79 20 72 65 67 65 | 78 70 20 64 65 73 63 72 |ary rege|xp descr|
|00004040| 69 62 69 6e 67 20 6e 6f | 6e 2d 6e 65 73 74 65 64 |ibing no|n-nested|
|00004050| 20 63 69 74 61 74 69 6f | 6e 73 2e 1f 0a 28 64 65 | citatio|ns...(de|
|00004060| 66 76 61 72 20 73 63 2d | 74 6d 70 2d 6e 6f 6e 6e |fvar sc-|tmp-nonn|
|00004070| 65 73 74 65 64 2d 72 65 | 67 65 78 70 20 6e 69 6c |ested-re|gexp nil|
|00004080| 20 28 23 24 20 2e 20 31 | 36 34 32 36 29 29 0a 23 | (#$ . 1|6426)).#|
|00004090| 40 37 32 20 54 65 6d 70 | 20 72 65 67 65 78 70 20 |@72 Temp| regexp |
|000040a0| 64 65 73 63 72 69 62 69 | 6e 67 20 6e 6f 6e 2d 6e |describi|ng non-n|
|000040b0| 65 73 74 65 64 20 63 69 | 74 61 74 69 6f 6e 20 63 |ested ci|tation c|
|000040c0| 69 74 65 64 20 77 69 74 | 68 20 61 20 6e 65 73 74 |ited wit|h a nest|
|000040d0| 69 6e 67 20 63 69 74 65 | 72 2e 1f 0a 28 64 65 66 |ing cite|r...(def|
|000040e0| 76 61 72 20 73 63 2d 74 | 6d 70 2d 64 75 6d 62 2d |var sc-t|mp-dumb-|
|000040f0| 72 65 67 65 78 70 20 6e | 69 6c 20 28 23 24 20 2e |regexp n|il (#$ .|
|00004100| 20 31 36 35 33 32 29 29 | 0a 23 40 33 31 20 53 75 | 16532))|.#@31 Su|
|00004110| 70 65 72 63 69 74 65 20 | 6d 69 6e 6f 72 20 6d 6f |percite |minor mo|
|00004120| 64 65 20 6f 6e 20 66 6c | 61 67 2e 1f 0a 28 64 65 |de on fl|ag...(de|
|00004130| 66 76 61 72 20 73 63 2d | 6d 69 6e 6f 72 2d 6d 6f |fvar sc-|minor-mo|
|00004140| 64 65 20 6e 69 6c 20 28 | 23 24 20 2e 20 31 36 36 |de nil (|#$ . 166|
|00004150| 35 34 29 29 0a 23 40 33 | 30 20 53 75 70 65 72 63 |54)).#@3|0 Superc|
|00004160| 69 74 65 20 6d 69 6e 6f | 72 20 6d 6f 64 65 20 73 |ite mino|r mode s|
|00004170| 74 72 69 6e 67 2e 1f 0a | 28 64 65 66 76 61 72 20 |tring...|(defvar |
|00004180| 73 63 2d 6d 6f 64 65 2d | 73 74 72 69 6e 67 20 22 |sc-mode-|string "|
|00004190| 20 53 43 22 20 28 23 24 | 20 2e 20 31 36 37 33 30 | SC" (#$| . 16730|
|000041a0| 29 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |)).(byte|-code ".|
|000041b0| c1 21 88 c0 c2 21 88 c0 | c3 21 87 22 20 5b 6d 61 |.!...!..|.!." [ma|
|000041c0| 6b 65 2d 76 61 72 69 61 | 62 6c 65 2d 62 75 66 66 |ke-varia|ble-buff|
|000041d0| 65 72 2d 6c 6f 63 61 6c | 20 73 63 2d 6d 61 69 6c |er-local| sc-mail|
|000041e0| 2d 69 6e 66 6f 20 73 63 | 2d 61 74 74 72 69 62 75 |-info sc|-attribu|
|000041f0| 74 69 6f 6e 73 20 73 63 | 2d 6d 69 6e 6f 72 2d 6d |tions sc|-minor-m|
|00004200| 6f 64 65 5d 20 32 29 0a | 23 40 39 34 20 2a 4b 65 |ode] 2).|#@94 *Ke|
|00004210| 79 20 62 69 6e 64 69 6e | 67 20 74 6f 20 69 6e 73 |y bindin|g to ins|
|00004220| 74 61 6c 6c 20 53 75 70 | 65 72 63 69 74 65 20 6b |tall Sup|ercite k|
|00004230| 65 79 6d 61 70 2e 0a 49 | 66 20 74 68 69 73 20 69 |eymap..I|f this i|
|00004240| 73 20 6e 69 6c 2c 20 53 | 75 70 65 72 63 69 74 65 |s nil, S|upercite|
|00004250| 20 6b 65 79 6d 61 70 20 | 69 73 20 6e 6f 74 20 69 | keymap |is not i|
|00004260| 6e 73 74 61 6c 6c 65 64 | 2e 1f 0a 28 64 65 66 76 |nstalled|...(defv|
|00004270| 61 72 20 73 63 2d 6d 6f | 64 65 2d 6d 61 70 2d 70 |ar sc-mo|de-map-p|
|00004280| 72 65 66 69 78 20 22 03 | 10 22 20 28 23 24 20 2e |refix ".|." (#$ .|
|00004290| 20 2d 31 36 39 30 39 29 | 29 0a 23 40 35 38 20 4b | -16909)|).#@58 K|
|000042a0| 65 79 6d 61 70 20 66 6f | 72 20 73 75 62 2d 6b 65 |eymap fo|r sub-ke|
|000042b0| 79 6d 61 70 20 6f 66 20 | 73 65 74 74 69 6e 67 20 |ymap of |setting |
|000042c0| 61 6e 64 20 74 6f 67 67 | 6c 69 6e 67 20 66 75 6e |and togg|ling fun|
|000042d0| 63 74 69 6f 6e 73 2e 1f | 0a 28 64 65 66 76 61 72 |ctions..|.(defvar|
|000042e0| 20 73 63 2d 54 2d 6b 65 | 79 6d 61 70 20 6e 69 6c | sc-T-ke|ymap nil|
|000042f0| 20 28 23 24 20 2e 20 31 | 37 30 35 35 29 29 0a 28 | (#$ . 1|7055)).(|
|00004300| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 ac e3 c1 20 |byte-cod|e ".... |
|00004310| 10 c2 08 c3 c4 23 88 c2 | 08 c5 c6 23 88 c2 08 c7 |.....#..|...#....|
|00004320| c8 23 88 c2 08 c9 ca 23 | 88 c2 08 cb cc 23 88 c2 |.#.....#|.....#..|
|00004330| 08 cd ce 23 88 c2 08 cf | d0 23 88 c2 08 d1 d2 23 |...#....|.#.....#|
|00004340| 88 c2 08 d3 d4 23 88 c2 | 08 d5 d6 23 88 c2 08 d7 |.....#..|...#....|
|00004350| d8 23 88 c2 08 d9 da 23 | 88 c2 08 db dc 23 88 c2 |.#.....#|.....#..|
|00004360| 08 dd de 23 88 c2 08 df | e0 23 88 c2 08 e1 d0 23 |...#....|.#.....#|
|00004370| 88 c1 87 22 20 5b 73 63 | 2d 54 2d 6b 65 79 6d 61 |..." [sc|-T-keyma|
|00004380| 70 20 6d 61 6b 65 2d 73 | 70 61 72 73 65 2d 6b 65 |p make-s|parse-ke|
|00004390| 79 6d 61 70 20 64 65 66 | 69 6e 65 2d 6b 65 79 20 |ymap def|ine-key |
|000043a0| 22 61 22 20 73 63 2d 53 | 2d 70 72 65 66 65 72 72 |"a" sc-S|-preferr|
|000043b0| 65 64 2d 61 74 74 72 69 | 62 75 74 69 6f 6e 2d 6c |ed-attri|bution-l|
|000043c0| 69 73 74 20 22 62 22 20 | 73 63 2d 54 2d 6d 61 69 |ist "b" |sc-T-mai|
|000043d0| 6c 2d 6e 75 6b 65 2d 62 | 6c 61 6e 6b 2d 6c 69 6e |l-nuke-b|lank-lin|
|000043e0| 65 73 20 22 63 22 20 73 | 63 2d 54 2d 63 6f 6e 66 |es "c" s|c-T-conf|
|000043f0| 69 72 6d 2d 61 6c 77 61 | 79 73 20 22 64 22 20 73 |irm-alwa|ys "d" s|
|00004400| 63 2d 54 2d 64 6f 77 6e | 63 61 73 65 20 22 65 22 |c-T-down|case "e"|
|00004410| 20 73 63 2d 54 2d 65 6c | 65 63 74 72 69 63 2d 72 | sc-T-el|ectric-r|
|00004420| 65 66 65 72 65 6e 63 65 | 73 20 22 66 22 20 73 63 |eference|s "f" sc|
|00004430| 2d 54 2d 61 75 74 6f 2d | 66 69 6c 6c 2d 72 65 67 |-T-auto-|fill-reg|
|00004440| 69 6f 6e 20 22 68 22 20 | 73 63 2d 54 2d 64 65 73 |ion "h" |sc-T-des|
|00004450| 63 72 69 62 65 20 22 6c | 22 20 73 63 2d 53 2d 63 |cribe "l|" sc-S-c|
|00004460| 69 74 65 2d 72 65 67 69 | 6f 6e 2d 6c 69 6d 69 74 |ite-regi|on-limit|
|00004470| 20 22 6e 22 20 73 63 2d | 53 2d 6d 61 69 6c 2d 6e | "n" sc-|S-mail-n|
|00004480| 75 6b 65 2d 6d 61 69 6c | 2d 68 65 61 64 65 72 73 |uke-mail|-headers|
|00004490| 20 22 4e 22 20 73 63 2d | 53 2d 6d 61 69 6c 2d 68 | "N" sc-|S-mail-h|
|000044a0| 65 61 64 65 72 2d 6e 75 | 6b 65 2d 6c 69 73 74 20 |eader-nu|ke-list |
|000044b0| 22 6f 22 20 73 63 2d 54 | 2d 65 6c 65 63 74 72 69 |"o" sc-T|-electri|
|000044c0| 63 2d 63 69 72 63 75 6c | 61 72 20 22 70 22 20 73 |c-circul|ar "p" s|
|000044d0| 63 2d 53 2d 70 72 65 66 | 65 72 72 65 64 2d 68 65 |c-S-pref|erred-he|
|000044e0| 61 64 65 72 2d 73 74 79 | 6c 65 20 22 73 22 20 73 |ader-sty|le "s" s|
|000044f0| 63 2d 54 2d 6e 65 73 74 | 65 64 2d 63 69 74 61 74 |c-T-nest|ed-citat|
|00004500| 69 6f 6e 20 22 75 22 20 | 73 63 2d 54 2d 75 73 65 |ion "u" |sc-T-use|
|00004510| 2d 6f 6e 6c 79 2d 70 72 | 65 66 65 72 65 6e 63 65 |-only-pr|eference|
|00004520| 73 20 22 77 22 20 73 63 | 2d 54 2d 66 69 78 75 70 |s "w" sc|-T-fixup|
|00004530| 2d 77 68 69 74 65 73 70 | 61 63 65 20 22 3f 22 5d |-whitesp|ace "?"]|
|00004540| 20 34 29 0a 23 40 33 34 | 20 4b 65 79 6d 61 70 20 | 4).#@34| Keymap |
|00004550| 66 6f 72 20 53 75 70 65 | 72 63 69 74 65 20 71 75 |for Supe|rcite qu|
|00004560| 61 73 69 2d 6d 6f 64 65 | 2e 1f 0a 28 64 65 66 76 |asi-mode|...(defv|
|00004570| 61 72 20 73 63 2d 6d 6f | 64 65 2d 6d 61 70 20 6e |ar sc-mo|de-map n|
|00004580| 69 6c 20 28 23 24 20 2e | 20 31 37 37 33 37 29 29 |il (#$ .| 17737))|
|00004590| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 ac d8 |.(byte-c|ode "...|
|000045a0| c1 20 10 c2 08 c3 c4 23 | 88 c2 08 c5 c6 23 88 c2 |. .....#|.....#..|
|000045b0| 08 c7 c8 23 88 c2 08 c9 | ca 23 88 c2 08 cb cc 23 |...#....|.#.....#|
|000045c0| 88 c2 08 cd ce 23 88 c2 | 08 cf d0 23 88 c2 08 d1 |.....#..|...#....|
|000045d0| d2 23 88 c2 08 d3 d4 23 | 88 c2 08 d5 d6 23 88 c2 |.#.....#|.....#..|
|000045e0| 08 d7 d8 23 88 c2 08 d9 | 0e 1a 23 88 c2 08 db dc |...#....|..#.....|
|000045f0| 23 88 c2 08 dd ca 23 88 | c1 87 22 20 5b 73 63 2d |#.....#.|.." [sc-|
|00004600| 6d 6f 64 65 2d 6d 61 70 | 20 6d 61 6b 65 2d 73 70 |mode-map| make-sp|
|00004610| 61 72 73 65 2d 6b 65 79 | 6d 61 70 20 64 65 66 69 |arse-key|map defi|
|00004620| 6e 65 2d 6b 65 79 20 22 | 63 22 20 73 63 2d 63 69 |ne-key "|c" sc-ci|
|00004630| 74 65 2d 72 65 67 69 6f | 6e 20 22 66 22 20 73 63 |te-regio|n "f" sc|
|00004640| 2d 6d 61 69 6c 2d 66 69 | 65 6c 64 2d 71 75 65 72 |-mail-fi|eld-quer|
|00004650| 79 20 22 67 22 20 73 63 | 2d 6d 61 69 6c 2d 70 72 |y "g" sc|-mail-pr|
|00004660| 6f 63 65 73 73 2d 68 65 | 61 64 65 72 73 20 22 68 |ocess-he|aders "h|
|00004670| 22 20 73 63 2d 64 65 73 | 63 72 69 62 65 20 22 69 |" sc-des|cribe "i|
|00004680| 22 20 73 63 2d 69 6e 73 | 65 72 74 2d 63 69 74 61 |" sc-ins|ert-cita|
|00004690| 74 69 6f 6e 20 22 6f 22 | 20 73 63 2d 6f 70 65 6e |tion "o"| sc-open|
|000046a0| 2d 6c 69 6e 65 20 22 72 | 22 20 73 63 2d 72 65 63 |-line "r|" sc-rec|
|000046b0| 69 74 65 2d 72 65 67 69 | 6f 6e 20 22 10 22 20 73 |ite-regi|on "." s|
|000046c0| 63 2d 72 61 77 2d 6d 6f | 64 65 2d 74 6f 67 67 6c |c-raw-mo|de-toggl|
|000046d0| 65 20 22 75 22 20 73 63 | 2d 75 6e 63 69 74 65 2d |e "u" sc|-uncite-|
|000046e0| 72 65 67 69 6f 6e 20 22 | 76 22 20 73 63 2d 76 65 |region "|v" sc-ve|
|000046f0| 72 73 69 6f 6e 20 22 77 | 22 20 73 63 2d 69 6e 73 |rsion "w|" sc-ins|
|00004700| 65 72 74 2d 72 65 66 65 | 72 65 6e 63 65 20 22 14 |ert-refe|rence ".|
|00004710| 22 20 73 63 2d 54 2d 6b | 65 79 6d 61 70 20 22 02 |" sc-T-k|eymap ".|
|00004720| 22 20 73 63 2d 73 75 62 | 6d 69 74 2d 62 75 67 2d |" sc-sub|mit-bug-|
|00004730| 72 65 70 6f 72 74 20 22 | 3f 22 5d 20 34 29 0a 23 |report "|?"] 4).#|
|00004740| 40 35 37 20 4b 65 79 6d | 61 70 20 66 6f 72 20 60 |@57 Keym|ap for `|
|00004750| 73 63 2d 65 6c 65 63 74 | 72 69 63 2d 6d 6f 64 65 |sc-elect|ric-mode|
|00004760| 27 20 65 6c 65 63 74 72 | 69 63 20 72 65 66 65 72 |' electr|ic refer|
|00004770| 65 6e 63 65 73 20 6d 6f | 64 65 2e 1f 0a 28 64 65 |ences mo|de...(de|
|00004780| 66 76 61 72 20 73 63 2d | 65 6c 65 63 74 72 69 63 |fvar sc-|electric|
|00004790| 2d 6d 6f 64 65 2d 6d 61 | 70 20 6e 69 6c 20 28 23 |-mode-ma|p nil (#|
|000047a0| 24 20 2e 20 31 38 32 34 | 34 29 29 0a 28 62 79 74 |$ . 1824|4)).(byt|
|000047b0| 65 2d 63 6f 64 65 20 22 | 08 ac c5 c1 20 10 c2 08 |e-code "|.... ...|
|000047c0| c3 c4 23 88 c2 08 c5 c6 | 23 88 c2 08 c7 c8 23 88 |..#.....|#.....#.|
|000047d0| c2 08 c9 ca 23 88 c2 08 | cb cc 23 88 c2 08 cd cc |....#...|..#.....|
|000047e0| 23 88 c2 08 ce cf 23 88 | c2 08 d0 cf 23 88 c2 08 |#.....#.|....#...|
|000047f0| d1 d2 23 88 c2 08 d3 d4 | 23 88 c2 08 d5 d4 23 88 |..#.....|#.....#.|
|00004800| c1 87 22 20 5b 73 63 2d | 65 6c 65 63 74 72 69 63 |.." [sc-|electric|
|00004810| 2d 6d 6f 64 65 2d 6d 61 | 70 20 6d 61 6b 65 2d 73 |-mode-ma|p make-s|
|00004820| 70 61 72 73 65 2d 6b 65 | 79 6d 61 70 20 64 65 66 |parse-ke|ymap def|
|00004830| 69 6e 65 2d 6b 65 79 20 | 22 70 22 20 73 63 2d 65 |ine-key |"p" sc-e|
|00004840| 72 65 66 2d 70 72 65 76 | 20 22 6e 22 20 73 63 2d |ref-prev| "n" sc-|
|00004850| 65 72 65 66 2d 6e 65 78 | 74 20 22 73 22 20 73 63 |eref-nex|t "s" sc|
|00004860| 2d 65 72 65 66 2d 73 65 | 74 6e 20 22 6a 22 20 73 |-eref-se|tn "j" s|
|00004870| 63 2d 65 72 65 66 2d 6a | 75 6d 70 20 22 78 22 20 |c-eref-j|ump "x" |
|00004880| 73 63 2d 65 72 65 66 2d | 61 62 6f 72 74 20 22 71 |sc-eref-|abort "q|
|00004890| 22 20 22 0d 22 20 73 63 | 2d 65 72 65 66 2d 65 78 |" "." sc|-eref-ex|
|000048a0| 69 74 20 22 5c 6e 22 20 | 22 67 22 20 73 63 2d 65 |it "\n" |"g" sc-e|
|000048b0| 72 65 66 2d 67 6f 74 6f | 20 22 3f 22 20 64 65 73 |ref-goto| "?" des|
|000048c0| 63 72 69 62 65 2d 6d 6f | 64 65 20 22 08 22 5d 20 |cribe-mo|de "."] |
|000048d0| 34 29 0a 23 40 36 30 20 | 4b 65 79 6d 61 70 20 66 |4).#@60 |Keymap f|
|000048e0| 6f 72 20 6d 69 6e 69 62 | 75 66 66 65 72 20 63 6f |or minib|uffer co|
|000048f0| 6e 66 69 72 6d 61 74 69 | 6f 6e 20 6f 66 20 61 74 |nfirmati|on of at|
|00004900| 74 72 69 62 75 74 69 6f | 6e 20 73 74 72 69 6e 67 |tributio|n string|
|00004910| 73 2e 1f 0a 28 64 65 66 | 76 61 72 20 73 63 2d 6d |s...(def|var sc-m|
|00004920| 69 6e 69 62 75 66 66 65 | 72 2d 6c 6f 63 61 6c 2d |inibuffe|r-local-|
|00004930| 63 6f 6d 70 6c 65 74 69 | 6f 6e 2d 6d 61 70 20 6e |completi|on-map n|
|00004940| 69 6c 20 28 23 24 20 2e | 20 31 38 36 34 38 29 29 |il (#$ .| 18648))|
|00004950| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 ac 90 |.(byte-c|ode "...|
|00004960| c1 5c 6e 21 10 c3 08 c4 | c5 23 88 c3 08 c6 c7 23 |.\n!....|.#.....#|
|00004970| 88 c1 87 22 20 5b 73 63 | 2d 6d 69 6e 69 62 75 66 |..." [sc|-minibuf|
|00004980| 66 65 72 2d 6c 6f 63 61 | 6c 2d 63 6f 6d 70 6c 65 |fer-loca|l-comple|
|00004990| 74 69 6f 6e 2d 6d 61 70 | 20 63 6f 70 79 2d 6b 65 |tion-map| copy-ke|
|000049a0| 79 6d 61 70 20 6d 69 6e | 69 62 75 66 66 65 72 2d |ymap min|ibuffer-|
|000049b0| 6c 6f 63 61 6c 2d 63 6f | 6d 70 6c 65 74 69 6f 6e |local-co|mpletion|
|000049c0| 2d 6d 61 70 20 64 65 66 | 69 6e 65 2d 6b 65 79 20 |-map def|ine-key |
|000049d0| 22 14 22 20 73 63 2d 74 | 6f 67 67 6c 65 2d 66 6e |"." sc-t|oggle-fn|
|000049e0| 20 22 20 22 20 73 65 6c | 66 2d 69 6e 73 65 72 74 | " " sel|f-insert|
|000049f0| 2d 63 6f 6d 6d 61 6e 64 | 5d 20 34 29 0a 23 40 36 |-command|] 4).#@6|
|00004a00| 30 20 4b 65 79 6d 61 70 | 20 66 6f 72 20 6d 69 6e |0 Keymap| for min|
|00004a10| 69 62 75 66 66 65 72 20 | 63 6f 6e 66 69 72 6d 61 |ibuffer |confirma|
|00004a20| 74 69 6f 6e 20 6f 66 20 | 61 74 74 72 69 62 75 74 |tion of |attribut|
|00004a30| 69 6f 6e 20 73 74 72 69 | 6e 67 73 2e 1f 0a 28 64 |ion stri|ngs...(d|
|00004a40| 65 66 76 61 72 20 73 63 | 2d 6d 69 6e 69 62 75 66 |efvar sc|-minibuf|
|00004a50| 66 65 72 2d 6c 6f 63 61 | 6c 2d 6d 61 70 20 6e 69 |fer-loca|l-map ni|
|00004a60| 6c 20 28 23 24 20 2e 20 | 31 38 39 34 36 29 29 0a |l (#$ . |18946)).|
|00004a70| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 ac 8a c1 |(byte-co|de "....|
|00004a80| 5c 6e 21 10 c3 08 c4 c5 | 23 88 c1 87 22 20 5b 73 |\n!.....|#..." [s|
|00004a90| 63 2d 6d 69 6e 69 62 75 | 66 66 65 72 2d 6c 6f 63 |c-minibu|ffer-loc|
|00004aa0| 61 6c 2d 6d 61 70 20 63 | 6f 70 79 2d 6b 65 79 6d |al-map c|opy-keym|
|00004ab0| 61 70 20 6d 69 6e 69 62 | 75 66 66 65 72 2d 6c 6f |ap minib|uffer-lo|
|00004ac0| 63 61 6c 2d 6d 61 70 20 | 64 65 66 69 6e 65 2d 6b |cal-map |define-k|
|00004ad0| 65 79 20 22 14 22 20 73 | 63 2d 74 6f 67 67 6c 65 |ey "." s|c-toggle|
|00004ae0| 2d 66 6e 5d 20 34 29 0a | 23 40 31 30 36 20 43 6f |-fn] 4).|#@106 Co|
|00004af0| 6d 70 61 74 69 62 69 6c | 69 74 79 20 62 65 74 77 |mpatibil|ity betw|
|00004b00| 65 65 6e 20 45 6d 61 63 | 73 20 31 38 20 61 6e 64 |een Emac|s 18 and|
|00004b10| 20 31 39 20 60 63 6f 6d | 70 6c 65 74 69 6e 67 2d | 19 `com|pleting-|
|00004b20| 72 65 61 64 27 2e 0a 49 | 6e 20 76 65 72 73 69 6f |read'..I|n versio|
|00004b30| 6e 20 31 38 2c 20 74 68 | 65 20 48 49 53 54 4f 52 |n 18, th|e HISTOR|
|00004b40| 59 20 61 72 67 75 6d 65 | 6e 74 20 69 73 20 69 67 |Y argume|nt is ig|
|00004b50| 6e 6f 72 65 64 2e 1f 0a | 28 64 65 66 61 6c 69 61 |nored...|(defalia|
|00004b60| 73 20 27 73 63 2d 63 6f | 6d 70 6c 65 74 69 6e 67 |s 'sc-co|mpleting|
|00004b70| 2d 72 65 61 64 20 23 5b | 28 70 72 6f 6d 70 74 20 |-read #[|(prompt |
|00004b80| 74 61 62 6c 65 20 26 6f | 70 74 69 6f 6e 61 6c 20 |table &o|ptional |
|00004b90| 70 72 65 64 69 63 61 74 | 65 20 72 65 71 75 69 72 |predicat|e requir|
|00004ba0| 65 2d 6d 61 74 63 68 20 | 69 6e 69 74 69 61 6c 2d |e-match |initial-|
|00004bb0| 63 6f 6e 74 65 6e 74 73 | 20 68 69 73 74 6f 72 79 |contents| history|
|00004bc0| 29 20 22 c0 09 73 ab 8d | c2 0b 0c 0d 0e 06 0e 07 |) "..s..|........|
|00004bd0| 0e 08 26 06 87 c2 0b 0c | 0d 0e 06 0e 07 a2 ae 82 |..&.....|........|
|00004be0| 0e 07 25 87 22 20 5b 76 | 31 39 20 73 63 2d 65 6d |..%." [v|19 sc-em|
|00004bf0| 61 63 73 2d 66 65 61 74 | 75 72 65 73 20 63 6f 6d |acs-feat|ures com|
|00004c00| 70 6c 65 74 69 6e 67 2d | 72 65 61 64 20 70 72 6f |pleting-|read pro|
|00004c10| 6d 70 74 20 74 61 62 6c | 65 20 70 72 65 64 69 63 |mpt tabl|e predic|
|00004c20| 61 74 65 20 72 65 71 75 | 69 72 65 2d 6d 61 74 63 |ate requ|ire-matc|
|00004c30| 68 20 69 6e 69 74 69 61 | 6c 2d 63 6f 6e 74 65 6e |h initia|l-conten|
|00004c40| 74 73 20 68 69 73 74 6f | 72 79 5d 20 37 20 28 23 |ts histo|ry] 7 (#|
|00004c50| 24 20 2e 20 31 39 31 38 | 32 29 5d 29 0a 23 40 31 |$ . 1918|2)]).#@1|
|00004c60| 30 32 20 43 6f 6d 70 61 | 74 69 62 69 6c 69 74 79 |02 Compa|tibility|
|00004c70| 20 62 65 74 77 65 65 6e | 20 45 6d 61 63 73 20 31 | between| Emacs 1|
|00004c80| 38 20 61 6e 64 20 31 39 | 20 60 72 65 61 64 2d 73 |8 and 19| `read-s|
|00004c90| 74 72 69 6e 67 27 2e 0a | 49 6e 20 76 65 72 73 69 |tring'..|In versi|
|00004ca0| 6f 6e 20 31 38 2c 20 74 | 68 65 20 48 49 53 54 4f |on 18, t|he HISTO|
|00004cb0| 52 59 20 61 72 67 75 6d | 65 6e 74 20 69 73 20 69 |RY argum|ent is i|
|00004cc0| 67 6e 6f 72 65 64 2e 1f | 0a 28 64 65 66 61 6c 69 |gnored..|.(defali|
|00004cd0| 61 73 20 27 73 63 2d 72 | 65 61 64 2d 73 74 72 69 |as 'sc-r|ead-stri|
|00004ce0| 6e 67 20 23 5b 28 70 72 | 6f 6d 70 74 20 26 6f 70 |ng #[(pr|ompt &op|
|00004cf0| 74 69 6f 6e 61 6c 20 69 | 6e 69 74 69 61 6c 2d 63 |tional i|nitial-c|
|00004d00| 6f 6e 74 65 6e 74 73 20 | 68 69 73 74 6f 72 79 29 |ontents |history)|
|00004d10| 20 22 c0 09 73 ab 86 c2 | 0b 0c 0d 23 87 c2 0b 0c | "..s...|...#....|
|00004d20| 5c 22 87 22 20 5b 76 31 | 39 20 73 63 2d 65 6d 61 |\"." [v1|9 sc-ema|
|00004d30| 63 73 2d 66 65 61 74 75 | 72 65 73 20 72 65 61 64 |cs-featu|res read|
|00004d40| 2d 73 74 72 69 6e 67 20 | 70 72 6f 6d 70 74 20 69 |-string |prompt i|
|00004d50| 6e 69 74 69 61 6c 2d 63 | 6f 6e 74 65 6e 74 73 20 |nitial-c|ontents |
|00004d60| 68 69 73 74 6f 72 79 5d | 20 34 20 28 23 24 20 2e |history]| 4 (#$ .|
|00004d70| 20 31 39 35 35 35 29 5d | 29 0a 23 40 33 31 37 20 | 19555)]|).#@317 |
|00004d80| 52 65 74 75 72 6e 73 20 | 60 6d 61 74 63 68 2d 62 |Returns |`match-b|
|00004d90| 65 67 69 6e 6e 69 6e 67 | 27 20 61 6e 64 20 60 6d |eginning|' and `m|
|00004da0| 61 74 63 68 2d 65 6e 64 | 27 20 73 75 62 2d 65 78 |atch-end|' sub-ex|
|00004db0| 70 72 65 73 73 69 6f 6e | 20 66 6f 72 20 4d 41 54 |pression| for MAT|
|00004dc0| 43 48 4e 55 4d 2e 0a 49 | 66 20 6f 70 74 69 6f 6e |CHNUM..I|f option|
|00004dd0| 61 6c 20 53 54 52 49 4e | 47 20 69 73 20 70 72 6f |al STRIN|G is pro|
|00004de0| 76 69 64 65 64 2c 20 74 | 61 6b 65 20 73 75 62 2d |vided, t|ake sub-|
|00004df0| 65 78 70 72 65 73 73 69 | 6f 6e 20 75 73 69 6e 67 |expressi|on using|
|00004e00| 20 60 73 75 62 73 74 72 | 69 6e 67 27 0a 6f 66 20 | `substr|ing'.of |
|00004e10| 61 72 67 75 6d 65 6e 74 | 2c 20 6f 74 68 65 72 77 |argument|, otherw|
|00004e20| 69 73 65 20 75 73 65 20 | 60 62 75 66 66 65 72 2d |ise use |`buffer-|
|00004e30| 73 75 62 73 74 72 69 6e | 67 27 20 6f 6e 20 63 75 |substrin|g' on cu|
|00004e40| 72 72 65 6e 74 20 62 75 | 66 66 65 72 2e 20 20 4e |rrent bu|ffer.  N|
|00004e50| 6f 74 65 0a 74 68 61 74 | 20 60 6d 61 74 63 68 2d |ote.that| `match-|
|00004e60| 64 61 74 61 27 20 6d 75 | 73 74 20 68 61 76 65 20 |data' mu|st have |
|00004e70| 61 6c 72 65 61 64 79 20 | 62 65 65 6e 20 67 65 6e |already |been gen|
|00004e80| 65 72 61 74 65 64 20 61 | 6e 64 20 6e 6f 20 65 72 |erated a|nd no er|
|00004e90| 72 6f 72 0a 63 68 65 63 | 6b 69 6e 67 20 69 73 20 |ror.chec|king is |
|00004ea0| 70 65 72 66 6f 72 6d 65 | 64 20 62 79 20 74 68 69 |performe|d by thi|
|00004eb0| 73 20 66 75 6e 63 74 69 | 6f 6e 2e 1f 0a 28 64 65 |s functi|on...(de|
|00004ec0| 66 61 6c 69 61 73 20 27 | 73 63 2d 73 75 62 6d 61 |falias '|sc-subma|
|00004ed0| 74 63 68 20 23 5b 28 6d | 61 74 63 68 6e 75 6d 20 |tch #[(m|atchnum |
|00004ee0| 26 6f 70 74 69 6f 6e 61 | 6c 20 73 74 72 69 6e 67 |&optiona|l string|
|00004ef0| 29 20 22 08 ab 87 08 09 | 94 09 95 4f 87 09 94 09 |) ".....|...O....|
|00004f00| 95 7b 87 22 20 5b 73 74 | 72 69 6e 67 20 6d 61 74 |.{." [st|ring mat|
|00004f10| 63 68 6e 75 6d 5d 20 33 | 20 28 23 24 20 2e 20 31 |chnum] 3| (#$ . 1|
|00004f20| 39 38 34 30 29 5d 29 0a | 23 40 31 31 33 20 4c 69 |9840)]).|#@113 Li|
|00004f30| 6b 65 20 60 6d 65 6d 71 | 27 2c 20 62 75 74 20 75 |ke `memq|', but u|
|00004f40| 73 65 73 20 60 65 71 75 | 61 6c 27 20 69 6e 73 74 |ses `equ|al' inst|
|00004f50| 65 61 64 20 6f 66 20 60 | 65 71 27 2e 0a 45 6d 61 |ead of `|eq'..Ema|
|00004f60| 63 73 31 39 20 68 61 73 | 20 61 20 62 75 69 6c 74 |cs19 has| a built|
|00004f70| 69 6e 20 66 75 6e 63 74 | 69 6f 6e 20 60 6d 65 6d |in funct|ion `mem|
|00004f80| 62 65 72 27 20 77 68 69 | 63 68 20 64 6f 65 73 20 |ber' whi|ch does |
|00004f90| 65 78 61 63 74 6c 79 20 | 74 68 69 73 2e 1f 0a 28 |exactly |this...(|
|00004fa0| 64 65 66 61 6c 69 61 73 | 20 27 73 63 2d 6d 65 6d |defalias| 'sc-mem|
|00004fb0| 62 65 72 20 23 5b 28 65 | 6c 74 20 6c 69 73 74 29 |ber #[(e|lt list)|
|00004fc0| 20 22 c0 c1 8d 87 22 20 | 5b 65 6c 74 2d 69 73 2d | "...." |[elt-is-|
|00004fd0| 6d 65 6d 62 65 72 20 28 | 62 79 74 65 2d 63 6f 64 |member (|byte-cod|
|00004fe0| 65 20 22 08 ad 92 09 08 | 40 6b ab 85 c2 c3 08 5c |e ".....|@k.....\|
|00004ff0| 22 88 08 41 89 10 ac 6f | c4 87 22 20 5b 6c 69 73 |"..A...o|.." [lis|
|00005000| 74 20 65 6c 74 20 74 68 | 72 6f 77 20 65 6c 74 2d |t elt th|row elt-|
|00005010| 69 73 2d 6d 65 6d 62 65 | 72 20 6e 69 6c 5d 20 34 |is-membe|r nil] 4|
|00005020| 29 5d 20 32 20 28 23 24 | 20 2e 20 32 30 32 37 30 |)] 2 (#$| . 20270|
|00005030| 29 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |)]).(byt|e-code "|
|00005040| c0 09 73 ab 84 c2 c3 4d | 88 c0 87 22 20 5b 76 31 |..s....M|..." [v1|
|00005050| 39 20 73 63 2d 65 6d 61 | 63 73 2d 66 65 61 74 75 |9 sc-ema|cs-featu|
|00005060| 72 65 73 20 73 63 2d 6d | 65 6d 62 65 72 20 6d 65 |res sc-m|ember me|
|00005070| 6d 62 65 72 5d 20 32 29 | 0a 23 40 35 31 30 20 41 |mber] 2)|.#@510 A|
|00005080| 73 6b 20 61 20 71 75 65 | 73 74 69 6f 6e 20 69 6e |sk a que|stion in|
|00005090| 20 74 68 65 20 6d 69 6e | 69 62 75 66 66 65 72 20 | the min|ibuffer |
|000050a0| 72 65 71 75 69 72 69 6e | 67 20 61 20 73 69 6e 67 |requirin|g a sing|
|000050b0| 6c 65 20 63 68 61 72 61 | 63 74 65 72 20 61 6e 73 |le chara|cter ans|
|000050c0| 77 65 72 2e 0a 54 68 69 | 73 20 66 75 6e 63 74 69 |wer..Thi|s functi|
|000050d0| 6f 6e 20 69 73 20 6b 69 | 6e 64 20 6f 66 20 61 6e |on is ki|nd of an|
|000050e0| 20 65 78 74 65 6e 73 69 | 6f 6e 20 6f 66 20 60 79 | extensi|on of `y|
|000050f0| 2d 6f 72 2d 6e 2d 70 27 | 20 77 68 65 72 65 20 61 |-or-n-p'| where a|
|00005100| 20 73 69 6e 67 6c 65 0a | 6c 65 74 74 65 72 20 69 | single.|letter i|
|00005110| 73 20 75 73 65 64 20 74 | 6f 20 61 6e 73 77 65 72 |s used t|o answer|
|00005120| 20 61 20 71 75 65 73 74 | 69 6f 6e 2e 20 20 51 75 | a quest|ion.  Qu|
|00005130| 65 73 74 69 6f 6e 20 69 | 73 20 66 6f 72 6d 65 64 |estion i|s formed|
|00005140| 20 66 72 6f 6d 20 41 4c | 49 53 54 0a 77 68 69 63 | from AL|IST.whic|
|00005150| 68 20 68 61 73 20 6d 65 | 6d 62 65 72 73 20 6f 66 |h has me|mbers of|
|00005160| 20 74 68 65 20 66 6f 72 | 6d 3a 20 20 28 57 4f 52 | the for|m:  (WOR|
|00005170| 44 20 2e 20 4c 45 54 54 | 45 52 29 2e 20 20 57 4f |D . LETT|ER).  WO|
|00005180| 52 44 20 69 73 20 74 68 | 65 20 6c 6f 6e 67 0a 77 |RD is th|e long.w|
|00005190| 6f 72 64 20 66 6f 72 6d | 2c 20 77 68 69 6c 65 20 |ord form|, while |
|000051a0| 4c 45 54 54 45 52 20 69 | 73 20 74 68 65 20 6c 65 |LETTER i|s the le|
|000051b0| 74 74 65 72 20 66 6f 72 | 20 73 65 6c 65 63 74 69 |tter for| selecti|
|000051c0| 6e 67 20 74 68 61 74 20 | 61 6e 73 77 65 72 2e 20 |ng that |answer. |
|000051d0| 20 54 68 65 0a 73 65 6c | 65 63 74 65 64 20 6c 65 | The.sel|ected le|
|000051e0| 74 74 65 72 20 69 73 20 | 72 65 74 75 72 6e 65 64 |tter is |returned|
|000051f0| 2c 20 6f 72 20 6e 69 6c | 20 69 66 20 74 68 65 20 |, or nil| if the |
|00005200| 71 75 65 73 74 69 6f 6e | 20 77 61 73 20 6e 6f 74 |question| was not|
|00005210| 20 61 6e 73 77 65 72 65 | 64 2e 0a 4e 6f 74 65 20 | answere|d..Note |
|00005220| 74 68 61 74 20 57 4f 52 | 44 20 69 73 20 61 20 73 |that WOR|D is a s|
|00005230| 74 72 69 6e 67 20 61 6e | 64 20 4c 45 54 54 45 52 |tring an|d LETTER|
|00005240| 20 69 73 20 61 20 63 68 | 61 72 61 63 74 65 72 2e | is a ch|aracter.|
|00005250| 20 20 41 6c 6c 20 4c 45 | 54 54 45 52 73 20 69 6e |  All LE|TTERs in|
|00005260| 0a 74 68 65 20 6c 69 73 | 74 20 73 68 6f 75 6c 64 |.the lis|t should|
|00005270| 20 62 65 20 75 6e 69 71 | 75 65 2e 1f 0a 28 64 65 | be uniq|ue...(de|
|00005280| 66 61 6c 69 61 73 20 27 | 73 63 2d 61 73 6b 20 23 |falias '|sc-ask #|
|00005290| 5b 28 61 6c 69 73 74 29 | 20 22 c0 c1 5c 6e c3 23 |[(alist)| "..\n.#|
|000052a0| c4 c0 c5 5c 6e c6 23 c7 | 52 89 1e 08 1e 09 ca 0e |...\n.#.|R.......|
|000052b0| 0b 73 ad 82 cc 20 1e 0d | 0e 09 3b 83 ef 00 ce 89 |.s... ..|..;.....|
|000052c0| 1e 0f 1e 10 d1 d2 0e 09 | 5c 22 88 d3 0e 0b 73 ab |........|\"....s.|
|000052d0| 86 d4 20 16 0d aa 91 ca | 0e 0b 73 ab 87 d5 0e 0d |.. .....|..s.....|
|000052e0| 21 88 aa 84 d6 20 16 0d | 0e 17 d8 16 17 2a ab 9d |!.... ..|.....*..|
|000052f0| d1 d9 0e 09 da 0e 0d 21 | 23 88 ca 0e 0b 73 ab 85 |.......!|#....s..|
|00005300| db 0e 0d 21 88 d8 16 17 | dc dd d8 5c 22 88 ca 0e |...!....|...\"...|
|00005310| 0b 73 ab 96 de 0e 0d 21 | ad 84 df 0e 0d 21 89 1e |.s.....!|.....!..|
|00005320| 20 ad 84 e1 0e 0d 21 29 | aa 82 0e 0d d8 1e 5c 22 | .....!)|......\"|
|00005330| 89 1e 23 ab 85 0e 23 97 | 16 23 e4 0e 23 5c 6e 5c |..#...#.|.#..#\n\|
|00005340| 22 89 16 5c 22 ab 90 d1 | d9 0e 09 0e 5c 22 40 23 |"..\"...|....\"@#|
|00005350| 88 0e 5c 22 41 16 09 aa | b6 ca 0e 0b 73 ab 86 e5 |..\"A...|....s...|
|00005360| 0e 0d 21 ac aa d1 d9 0e | 09 da 0e 0d 21 23 88 ca |..!.....|....!#..|
|00005370| 0e 0b 73 ab 87 e6 d8 e7 | 5c 22 88 aa 83 e6 20 88 |..s.....|\".... .|
|00005380| e8 20 88 0e 09 0e 08 61 | ab 86 e9 0e 08 50 16 09 |. .....a|.....P..|
|00005390| 2a 82 1c 00 ca 0e 0b 73 | ab 85 db 0e 0d 21 88 0e |*......s|.....!..|
|000053a0| 09 2b 87 22 20 5b 6d 61 | 70 63 6f 6e 63 61 74 20 |.+." [ma|pconcat |
|000053b0| 23 5b 28 65 6c 74 29 20 | 22 08 40 87 22 20 5b 65 |#[(elt) |".@." [e|
|000053c0| 6c 74 5d 20 31 5d 20 61 | 6c 69 73 74 20 22 2c 20 |lt] 1] a|list ", |
|000053d0| 22 20 22 3f 20 28 22 20 | 23 5b 28 65 6c 74 29 20 |" "? (" |#[(elt) |
|000053e0| 22 c0 09 41 21 87 22 20 | 5b 63 68 61 72 2d 74 6f |"..A!." |[char-to|
|000053f0| 2d 73 74 72 69 6e 67 20 | 65 6c 74 5d 20 32 5d 20 |-string |elt] 2] |
|00005400| 22 2f 22 20 22 29 20 22 | 20 70 72 6f 6d 70 74 20 |"/" ") "| prompt |
|00005410| 70 20 4c 75 63 69 64 20 | 73 63 2d 65 6d 61 63 73 |p Lucid |sc-emacs|
|00005420| 2d 66 65 61 74 75 72 65 | 73 20 61 6c 6c 6f 63 61 |-feature|s alloca|
|00005430| 74 65 2d 65 76 65 6e 74 | 20 65 76 65 6e 74 20 74 |te-event| event t|
|00005440| 20 69 6e 68 69 62 69 74 | 2d 71 75 69 74 20 63 75 | inhibit|-quit cu|
|00005450| 72 73 6f 72 2d 69 6e 2d | 65 63 68 6f 2d 61 72 65 |rsor-in-|echo-are|
|00005460| 61 20 6d 65 73 73 61 67 | 65 20 22 25 73 22 20 76 |a messag|e "%s" v|
|00005470| 31 38 20 72 65 61 64 2d | 63 68 61 72 20 6e 65 78 |18 read-|char nex|
|00005480| 74 2d 63 6f 6d 6d 61 6e | 64 2d 65 76 65 6e 74 20 |t-comman|d-event |
|00005490| 72 65 61 64 2d 65 76 65 | 6e 74 20 71 75 69 74 2d |read-eve|nt quit-|
|000054a0| 66 6c 61 67 20 6e 69 6c | 20 22 25 73 25 73 22 20 |flag nil| "%s%s" |
|000054b0| 73 69 6e 67 6c 65 2d 6b | 65 79 2d 64 65 73 63 72 |single-k|ey-descr|
|000054c0| 69 70 74 69 6f 6e 20 64 | 65 61 6c 6c 6f 63 61 74 |iption d|eallocat|
|000054d0| 65 2d 65 76 65 6e 74 20 | 73 69 67 6e 61 6c 20 71 |e-event |signal q|
|000054e0| 75 69 74 20 6b 65 79 2d | 70 72 65 73 73 2d 65 76 |uit key-|press-ev|
|000054f0| 65 6e 74 2d 70 20 65 76 | 65 6e 74 2d 6b 65 79 20 |ent-p ev|ent-key |
|00005500| 6b 65 79 20 65 76 65 6e | 74 2d 74 6f 2d 63 68 61 |key even|t-to-cha|
|00005510| 72 61 63 74 65 72 20 65 | 6c 74 20 63 68 61 72 20 |racter e|lt char |
|00005520| 72 61 73 73 71 20 62 75 | 74 74 6f 6e 2d 72 65 6c |rassq bu|tton-rel|
|00005530| 65 61 73 65 2d 65 76 65 | 6e 74 2d 70 20 64 69 6e |ease-eve|nt-p din|
|00005540| 67 20 79 2d 6f 72 2d 6e | 2d 70 20 64 69 73 63 61 |g y-or-n|-p disca|
|00005550| 72 64 2d 69 6e 70 75 74 | 20 22 54 72 79 20 61 67 |rd-input| "Try ag|
|00005560| 61 69 6e 2e 20 20 22 5d | 20 37 20 28 23 24 20 2e |ain.  "]| 7 (#$ .|
|00005570| 20 32 30 36 30 37 29 5d | 29 0a 23 40 36 34 20 46 | 20607)]|).#@64 F|
|00005580| 69 6e 64 20 61 20 6d 61 | 74 63 68 20 69 6e 20 74 |ind a ma|tch in t|
|00005590| 68 65 20 69 6e 66 6f 20 | 61 6c 69 73 74 20 74 68 |he info |alist th|
|000055a0| 61 74 20 6d 61 74 63 68 | 65 73 20 61 20 72 65 67 |at match|es a reg|
|000055b0| 65 78 70 20 69 6e 20 41 | 4c 49 53 54 2e 1f 0a 28 |exp in A|LIST...(|
|000055c0| 64 65 66 61 6c 69 61 73 | 20 27 73 63 2d 73 63 61 |defalias| 'sc-sca|
|000055d0| 6e 2d 69 6e 66 6f 2d 61 | 6c 69 73 74 20 23 5b 28 |n-info-a|list #[(|
|000055e0| 61 6c 69 73 74 29 20 22 | c0 c1 1a 1b 0c ab c4 0c |alist) "|........|
|000055f0| 40 89 1d 40 1e 06 c7 0e | 06 21 1e 08 0d 41 40 1e |@..@....|.!...A@.|
|00005600| 09 0e 09 ab a8 0e 09 40 | 89 1e 5c 6e 40 1e 0b 0e |.......@|..\n@...|
|00005610| 5c 6e 41 1e 0c cd 0e 0b | 0e 08 5c 22 ab 8a 0e 0c |\nA.....|..\"....|
|00005620| 12 c1 16 09 c1 14 aa 85 | 0e 09 41 16 09 2b aa 54 |........|..A..+.T|
|00005630| 0c 41 14 2c aa 39 5c 6e | 2a 87 22 20 5b 22 22 20 |.A.,.9\n|*." ["" |
|00005640| 6e 69 6c 20 72 74 6e 76 | 61 6c 75 65 20 73 63 2d |nil rtnv|alue sc-|
|00005650| 6d 75 6d 62 6c 65 20 61 | 6c 69 73 74 20 65 6c 65 |mumble a|list ele|
|00005660| 6d 20 69 6e 66 6f 6b 65 | 79 20 73 63 2d 6d 61 69 |m infoke|y sc-mai|
|00005670| 6c 2d 66 69 65 6c 64 20 | 69 6e 66 6f 76 61 6c 20 |l-field |infoval |
|00005680| 6d 6c 69 73 74 20 6d 6c | 2d 65 6c 65 6d 20 72 65 |mlist ml|-elem re|
|00005690| 67 65 78 70 20 74 68 69 | 6e 67 20 73 74 72 69 6e |gexp thi|ng strin|
|000056a0| 67 2d 6d 61 74 63 68 5d | 20 34 20 28 23 24 20 2e |g-match]| 4 (#$ .|
|000056b0| 20 32 31 38 38 37 29 5d | 29 0a 23 40 32 35 20 53 | 21887)]|).#@25 S|
|000056c0| 74 61 72 74 20 6f 66 20 | 68 65 61 64 65 72 20 66 |tart of |header f|
|000056d0| 69 65 6c 64 73 2e 1f 0a | 28 64 65 66 76 61 72 20 |ields...|(defvar |
|000056e0| 73 63 2d 6d 61 69 6c 2d | 68 65 61 64 65 72 73 2d |sc-mail-|headers-|
|000056f0| 73 74 61 72 74 20 6e 69 | 6c 20 28 23 24 20 2e 20 |start ni|l (#$ . |
|00005700| 32 32 32 30 37 29 29 0a | 23 40 32 33 20 45 6e 64 |22207)).|#@23 End|
|00005710| 20 6f 66 20 68 65 61 64 | 65 72 20 66 69 65 6c 64 | of head|er field|
|00005720| 73 2e 1f 0a 28 64 65 66 | 76 61 72 20 73 63 2d 6d |s...(def|var sc-m|
|00005730| 61 69 6c 2d 68 65 61 64 | 65 72 73 2d 65 6e 64 20 |ail-head|ers-end |
|00005740| 6e 69 6c 20 28 23 24 20 | 2e 20 32 32 32 38 35 29 |nil (#$ |. 22285)|
|00005750| 29 0a 23 40 35 30 20 46 | 6f 72 20 6d 69 6e 69 62 |).#@50 F|or minib|
|00005760| 75 66 66 65 72 20 63 6f | 6d 70 6c 65 74 69 6f 6e |uffer co|mpletion|
|00005770| 20 6f 6e 20 6d 61 69 6c | 20 66 69 65 6c 64 20 71 | on mail| field q|
|00005780| 75 65 72 69 65 73 2e 1f | 0a 28 64 65 66 76 61 72 |ueries..|.(defvar|
|00005790| 20 73 63 2d 6d 61 69 6c | 2d 66 69 65 6c 64 2d 68 | sc-mail|-field-h|
|000057a0| 69 73 74 6f 72 79 20 6e | 69 6c 20 28 23 24 20 2e |istory n|il (#$ .|
|000057b0| 20 32 32 33 35 39 29 29 | 0a 23 40 35 36 20 46 6f | 22359))|.#@56 Fo|
|000057c0| 72 20 6d 69 6e 69 62 75 | 66 66 65 72 20 63 6f 6d |r minibu|ffer com|
|000057d0| 70 6c 65 74 69 6f 6e 20 | 6f 6e 20 6d 61 69 6c 20 |pletion |on mail |
|000057e0| 66 69 65 6c 64 20 6d 6f | 64 69 66 69 63 61 74 69 |field mo|dificati|
|000057f0| 6f 6e 73 2e 1f 0a 28 64 | 65 66 76 61 72 20 73 63 |ons...(d|efvar sc|
|00005800| 2d 6d 61 69 6c 2d 66 69 | 65 6c 64 2d 6d 6f 64 69 |-mail-fi|eld-modi|
|00005810| 66 69 63 61 74 69 6f 6e | 2d 68 69 73 74 6f 72 79 |fication|-history|
|00005820| 20 6e 69 6c 20 28 23 24 | 20 2e 20 32 32 34 36 32 | nil (#$| . 22462|
|00005830| 29 29 0a 23 40 35 30 20 | 52 65 67 69 20 66 72 61 |)).#@50 |Regi fra|
|00005840| 6d 65 20 66 6f 72 20 67 | 6c 6f 6d 6d 69 6e 67 20 |me for g|lomming |
|00005850| 6d 61 69 6c 20 68 65 61 | 64 65 72 20 69 6e 66 6f |mail hea|der info|
|00005860| 72 6d 61 74 69 6f 6e 2e | 1f 0a 28 64 65 66 76 61 |rmation.|..(defva|
|00005870| 72 20 73 63 2d 6d 61 69 | 6c 2d 67 6c 6f 6d 2d 66 |r sc-mai|l-glom-f|
|00005880| 72 61 6d 65 20 27 28 28 | 62 65 67 69 6e 20 28 73 |rame '((|begin (s|
|00005890| 65 74 71 20 73 63 2d 6d | 61 69 6c 2d 68 65 61 64 |etq sc-m|ail-head|
|000058a0| 65 72 73 2d 73 74 61 72 | 74 20 28 70 6f 69 6e 74 |ers-star|t (point|
|000058b0| 29 29 29 20 28 22 5e 78 | 2d 61 74 74 72 69 62 75 |))) ("^x|-attribu|
|000058c0| 74 69 6f 6e 3a 5b 20 09 | 5d 2b 2e 2a 24 22 20 28 |tion:[ .|]+.*$" (|
|000058d0| 73 63 2d 6d 61 69 6c 2d | 66 65 74 63 68 2d 66 69 |sc-mail-|fetch-fi|
|000058e0| 65 6c 64 20 74 29 20 6e | 69 6c 20 74 29 20 28 22 |eld t) n|il t) ("|
|000058f0| 5e 5c 5c 53 20 2b 3a 2e | 2a 24 22 20 28 73 63 2d |^\\S +:.|*$" (sc-|
|00005900| 6d 61 69 6c 2d 66 65 74 | 63 68 2d 66 69 65 6c 64 |mail-fet|ch-field|
|00005910| 29 20 6e 69 6c 20 74 29 | 20 28 22 5e 24 22 20 28 |) nil t)| ("^$" (|
|00005920| 6c 69 73 74 20 27 61 62 | 6f 72 74 20 27 28 73 74 |list 'ab|ort '(st|
|00005930| 65 70 20 2e 20 30 29 29 | 29 20 28 22 5e 5b 20 09 |ep . 0))|) ("^[ .|
|00005940| 5d 2b 22 20 28 73 63 2d | 6d 61 69 6c 2d 61 70 70 |]+" (sc-|mail-app|
|00005950| 65 6e 64 2d 66 69 65 6c | 64 29 29 20 28 73 63 2d |end-fiel|d)) (sc-|
|00005960| 6d 61 69 6c 2d 77 61 72 | 6e 2d 69 66 2d 6e 6f 6e |mail-war|n-if-non|
|00005970| 2d 72 66 63 38 32 32 2d | 70 20 28 73 63 2d 6d 61 |-rfc822-|p (sc-ma|
|00005980| 69 6c 2d 65 72 72 6f 72 | 2d 69 6e 2d 6d 61 69 6c |il-error|-in-mail|
|00005990| 2d 66 69 65 6c 64 29 29 | 20 28 65 6e 64 20 28 73 |-field))| (end (s|
|000059a0| 65 74 71 20 73 63 2d 6d | 61 69 6c 2d 68 65 61 64 |etq sc-m|ail-head|
|000059b0| 65 72 73 2d 65 6e 64 20 | 28 70 6f 69 6e 74 29 29 |ers-end |(point))|
|000059c0| 29 29 20 28 23 24 20 2e | 20 32 32 35 38 34 29 29 |)) (#$ .| 22584))|
|000059d0| 0a 23 40 31 34 30 20 49 | 6e 73 65 72 74 20 61 20 |.#@140 I|nsert a |
|000059e0| 6b 65 79 20 61 6e 64 20 | 76 61 6c 75 65 20 69 6e |key and |value in|
|000059f0| 74 6f 20 60 73 63 2d 6d | 61 69 6c 2d 69 6e 66 6f |to `sc-m|ail-info|
|00005a00| 27 20 61 6c 69 73 74 2e | 0a 49 66 20 6f 70 74 69 |' alist.|.If opti|
|00005a10| 6f 6e 61 6c 20 41 54 54 | 52 49 42 53 2d 50 20 69 |onal ATT|RIBS-P i|
|00005a20| 73 20 6e 6f 6e 2d 6e 69 | 6c 2c 20 74 68 65 20 6b |s non-ni|l, the k|
|00005a30| 65 79 2f 76 61 6c 75 65 | 20 70 61 69 72 20 69 73 |ey/value| pair is|
|00005a40| 20 70 6c 61 63 65 64 20 | 69 6e 0a 60 73 63 2d 61 | placed |in.`sc-a|
|00005a50| 74 74 72 69 62 75 74 69 | 6f 6e 73 27 20 74 6f 6f |ttributi|ons' too|
|00005a60| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 73 63 |...(defa|lias 'sc|
|00005a70| 2d 6d 61 69 6c 2d 66 65 | 74 63 68 2d 66 69 65 6c |-mail-fe|tch-fiel|
|00005a80| 64 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 61 |d #[(&op|tional a|
|00005a90| 74 74 72 69 62 73 2d 70 | 29 20 22 c0 c1 5c 6e 5c |ttribs-p|) "..\n\|
|00005aa0| 22 ab a4 c3 c4 5c 6e 5c | 22 97 1d c3 c6 5c 6e 5c |"....\n\|"....\n\|
|00005ab0| 22 1e 07 0d 0e 07 42 89 | 1e 08 0e 09 42 16 09 0e |".....B.|....B...|
|00005ac0| 5c 6e ab 87 0e 08 0e 0b | 42 16 0b 2b cc 87 22 20 |\n......|B..+.." |
|00005ad0| 5b 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 5e |[string-|match "^|
|00005ae0| 5c 5c 28 5c 5c 53 20 2a | 5c 5c 29 5c 5c 73 20 2a |\\(\\S *|\\)\\s *|
|00005af0| 3a 5c 5c 73 20 2b 5c 5c | 28 2e 2a 5c 5c 29 24 22 |:\\s +\\|(.*\\)$"|
|00005b00| 20 63 75 72 6c 69 6e 65 | 20 73 63 2d 73 75 62 6d | curline| sc-subm|
|00005b10| 61 74 63 68 20 31 20 6b | 65 79 20 32 20 76 61 6c |atch 1 k|ey 2 val|
|00005b20| 20 6b 65 79 76 61 6c 20 | 73 63 2d 6d 61 69 6c 2d | keyval |sc-mail-|
|00005b30| 69 6e 66 6f 20 61 74 74 | 72 69 62 73 2d 70 20 73 |info att|ribs-p s|
|00005b40| 63 2d 61 74 74 72 69 62 | 75 74 69 6f 6e 73 20 6e |c-attrib|utions n|
|00005b50| 69 6c 5d 20 34 20 28 23 | 24 20 2e 20 32 32 39 39 |il] 4 (#|$ . 2299|
|00005b60| 39 29 5d 29 0a 23 40 36 | 39 20 41 70 70 65 6e 64 |9)]).#@6|9 Append|
|00005b70| 20 61 20 63 6f 6e 74 69 | 6e 75 61 74 69 6f 6e 20 | a conti|nuation |
|00005b80| 6c 69 6e 65 20 6f 6e 74 | 6f 20 74 68 65 20 6c 61 |line ont|o the la|
|00005b90| 73 74 20 66 65 74 63 68 | 65 64 20 6d 61 69 6c 20 |st fetch|ed mail |
|00005ba0| 66 69 65 6c 64 27 73 20 | 69 6e 66 6f 2e 1f 0a 28 |field's |info...(|
|00005bb0| 64 65 66 61 6c 69 61 73 | 20 27 73 63 2d 6d 61 69 |defalias| 'sc-mai|
|00005bc0| 6c 2d 61 70 70 65 6e 64 | 2d 66 69 65 6c 64 20 23 |l-append|-field #|
|00005bd0| 5b 6e 69 6c 20 22 08 40 | 89 19 ab 91 c2 c3 0c 5c |[nil ".@|.......\|
|00005be0| 22 ab 8b 09 89 41 c5 c6 | c7 0c 5c 22 51 a1 88 29 |"....A..|..\"Q..)|
|00005bf0| c8 87 22 20 5b 73 63 2d | 6d 61 69 6c 2d 69 6e 66 |.." [sc-|mail-inf|
|00005c00| 6f 20 6b 65 79 76 61 6c | 20 73 74 72 69 6e 67 2d |o keyval| string-|
|00005c10| 6d 61 74 63 68 20 22 5e | 5c 5c 73 20 2a 5c 5c 28 |match "^|\\s *\\(|
|00005c20| 2e 2a 5c 5c 29 24 22 20 | 63 75 72 6c 69 6e 65 20 |.*\\)$" |curline |
|00005c30| 22 20 22 20 73 63 2d 73 | 75 62 6d 61 74 63 68 20 |" " sc-s|ubmatch |
|00005c40| 31 20 6e 69 6c 5d 20 37 | 20 28 23 24 20 2e 20 32 |1 nil] 7| (#$ . 2|
|00005c50| 33 34 30 32 29 5d 29 0a | 23 40 35 39 20 49 73 73 |3402)]).|#@59 Iss|
|00005c60| 75 65 20 77 61 72 6e 69 | 6e 67 20 74 68 61 74 20 |ue warni|ng that |
|00005c70| 6d 61 69 6c 20 68 65 61 | 64 65 72 73 20 64 6f 6e |mail hea|ders don|
|00005c80| 27 74 20 63 6f 6e 66 6f | 72 6d 20 74 6f 20 52 46 |'t confo|rm to RF|
|00005c90| 43 20 38 32 32 2e 1f 0a | 28 64 65 66 61 6c 69 61 |C 822...|(defalia|
|00005ca0| 73 20 27 73 63 2d 6d 61 | 69 6c 2d 65 72 72 6f 72 |s 'sc-ma|il-error|
|00005cb0| 2d 69 6e 2d 6d 61 69 6c | 2d 66 69 65 6c 64 20 23 |-in-mail|-field #|
|00005cc0| 5b 6e 69 6c 20 22 08 47 | c1 5e 89 1a 08 47 57 ab |[nil ".G|.^...GW.|
|00005cd0| 83 c3 aa 81 c4 1d c6 1e | 07 c8 0e 07 08 c9 5c 6e |........|......\n|
|00005ce0| 4f 0d 23 88 2b ca 20 88 | cb cc 21 88 cd 87 22 20 |O.#.+. .|..!..." |
|00005cf0| 5b 63 75 72 6c 69 6e 65 | 20 31 30 20 6c 65 6e 20 |[curline| 10 len |
|00005d00| 22 2e 2e 2e 22 20 22 22 | 20 65 6c 6c 69 70 73 69 |"..." ""| ellipsi|
|00005d10| 73 20 22 4d 61 69 6c 20 | 68 65 61 64 65 72 20 5c |s "Mail |header \|
|00005d20| 22 25 73 25 73 5c 22 20 | 64 6f 65 73 6e 27 74 20 |"%s%s\" |doesn't |
|00005d30| 63 6f 6e 66 6f 72 6d 20 | 74 6f 20 52 46 43 20 38 |conform |to RFC 8|
|00005d40| 32 32 2e 20 73 6b 69 70 | 70 69 6e 67 2e 2e 2e 22 |22. skip|ping..."|
|00005d50| 20 6d 73 67 20 6d 65 73 | 73 61 67 65 20 30 20 62 | msg mes|sage 0 b|
|00005d60| 65 65 70 20 73 69 74 2d | 66 6f 72 20 32 20 6e 69 |eep sit-|for 2 ni|
|00005d70| 6c 5d 20 36 20 28 23 24 | 20 2e 20 32 33 36 34 35 |l] 6 (#$| . 23645|
|00005d80| 29 5d 29 0a 23 40 33 36 | 20 54 72 75 65 20 69 66 |)]).#@36| True if|
|00005d90| 20 74 68 65 20 6c 61 73 | 74 20 68 65 61 64 65 72 | the las|t header|
|00005da0| 20 77 61 73 20 6e 75 6b | 65 64 2e 1f 0a 28 64 65 | was nuk|ed...(de|
|00005db0| 66 76 61 72 20 73 63 2d | 6d 61 69 6c 2d 6c 61 73 |fvar sc-|mail-las|
|00005dc0| 74 2d 68 65 61 64 65 72 | 2d 6e 75 6b 65 64 2d 70 |t-header|-nuked-p|
|00005dd0| 20 6e 69 6c 20 28 23 24 | 20 2e 20 32 33 39 34 35 | nil (#$| . 23945|
|00005de0| 29 29 0a 23 40 33 36 20 | 4e 75 6b 65 20 74 68 65 |)).#@36 |Nuke the|
|00005df0| 20 63 75 72 72 65 6e 74 | 20 6d 61 69 6c 20 68 65 | current| mail he|
|00005e00| 61 64 65 72 20 6c 69 6e | 65 2e 1f 0a 28 64 65 66 |ader lin|e...(def|
|00005e10| 61 6c 69 61 73 20 27 73 | 63 2d 6d 61 69 6c 2d 6e |alias 's|c-mail-n|
|00005e20| 75 6b 65 2d 6c 69 6e 65 | 20 23 5b 6e 69 6c 20 22 |uke-line| #[nil "|
|00005e30| c0 c1 21 c0 c2 21 7c 88 | c3 87 22 20 5b 72 65 67 |..!..!|.|.." [reg|
|00005e40| 69 2d 70 6f 73 20 62 6f | 6c 20 62 6f 6e 6c 20 28 |i-pos bo|l bonl (|
|00005e50| 28 73 74 65 70 20 2e 20 | 2d 31 29 29 5d 20 33 20 |(step . |-1))] 3 |
|00005e60| 28 23 24 20 2e 20 32 34 | 30 34 30 29 5d 29 0a 23 |(#$ . 24|040)]).#|
|00005e70| 40 35 39 20 44 65 6c 65 | 74 65 20 63 75 72 72 65 |@59 Dele|te curre|
|00005e80| 6e 74 2d 6c 69 6e 65 20 | 61 6e 64 20 73 65 74 20 |nt-line |and set |
|00005e90| 75 70 20 66 6f 72 20 70 | 6f 73 73 69 62 6c 65 20 |up for p|ossible |
|00005ea0| 63 6f 6e 74 69 6e 75 61 | 74 69 6f 6e 2e 1f 0a 28 |continua|tion...(|
|00005eb0| 64 65 66 61 6c 69 61 73 | 20 27 73 63 2d 6d 61 69 |defalias| 'sc-mai|
|00005ec0| 6c 2d 6e 75 6b 65 2d 68 | 65 61 64 65 72 2d 6c 69 |l-nuke-h|eader-li|
|00005ed0| 6e 65 20 23 5b 6e 69 6c | 20 22 c0 11 c2 20 87 22 |ne #[nil| "... ."|
|00005ee0| 20 5b 74 20 73 63 2d 6d | 61 69 6c 2d 6c 61 73 74 | [t sc-m|ail-last|
|00005ef0| 2d 68 65 61 64 65 72 2d | 6e 75 6b 65 64 2d 70 20 |-header-|nuked-p |
|00005f00| 73 63 2d 6d 61 69 6c 2d | 6e 75 6b 65 2d 6c 69 6e |sc-mail-|nuke-lin|
|00005f10| 65 5d 20 31 20 28 23 24 | 20 2e 20 32 34 31 38 30 |e] 1 (#$| . 24180|
|00005f20| 29 5d 29 0a 23 40 36 35 | 20 44 65 6c 65 74 65 20 |)]).#@65| Delete |
|00005f30| 61 20 63 6f 6e 74 69 6e | 75 61 74 69 6f 6e 20 6c |a contin|uation l|
|00005f40| 69 6e 65 20 69 66 20 74 | 68 65 20 6c 61 73 74 20 |ine if t|he last |
|00005f50| 68 65 61 64 65 72 20 6c | 69 6e 65 20 77 61 73 20 |header l|ine was |
|00005f60| 64 65 6c 65 74 65 64 2e | 1f 0a 28 64 65 66 61 6c |deleted.|..(defal|
|00005f70| 69 61 73 20 27 73 63 2d | 6d 61 69 6c 2d 6e 75 6b |ias 'sc-|mail-nuk|
|00005f80| 65 2d 63 6f 6e 74 69 6e | 75 61 74 69 6f 6e 2d 6c |e-contin|uation-l|
|00005f90| 69 6e 65 20 23 5b 6e 69 | 6c 20 22 08 ad 82 c1 20 |ine #[ni|l ".... |
|00005fa0| 87 22 20 5b 73 63 2d 6d | 61 69 6c 2d 6c 61 73 74 |." [sc-m|ail-last|
|00005fb0| 2d 68 65 61 64 65 72 2d | 6e 75 6b 65 64 2d 70 20 |-header-|nuked-p |
|00005fc0| 73 63 2d 6d 61 69 6c 2d | 6e 75 6b 65 2d 6c 69 6e |sc-mail-|nuke-lin|
|00005fd0| 65 5d 20 31 20 28 23 24 | 20 2e 20 32 34 33 36 31 |e] 1 (#$| . 24361|
|00005fe0| 29 5d 29 0a 23 40 31 33 | 36 20 4c 65 61 76 65 20 |)]).#@13|6 Leave |
|00005ff0| 73 6f 6d 65 20 62 6c 61 | 6e 6b 20 6c 69 6e 65 73 |some bla|nk lines|
|00006000| 20 61 66 74 65 72 20 6f | 72 69 67 69 6e 61 6c 20 | after o|riginal |
|00006010| 6d 61 69 6c 20 68 65 61 | 64 65 72 73 20 61 72 65 |mail hea|ders are|
|00006020| 20 6e 75 6b 65 64 2e 0a | 54 68 65 20 6e 75 6d 62 | nuked..|The numb|
|00006030| 65 72 20 6f 66 20 6c 69 | 6e 65 73 20 6c 65 66 74 |er of li|nes left|
|00006040| 20 69 73 20 73 70 65 63 | 69 66 69 65 64 20 62 79 | is spec|ified by|
|00006050| 20 60 73 63 2d 62 6c 61 | 6e 6b 2d 6c 69 6e 65 73 | `sc-bla|nk-lines|
|00006060| 2d 61 66 74 65 72 2d 68 | 65 61 64 65 72 73 27 2e |-after-h|eaders'.|
|00006070| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 63 2d |..(defal|ias 'sc-|
|00006080| 6d 61 69 6c 2d 63 6c 65 | 61 6e 75 70 2d 62 6c 61 |mail-cle|anup-bla|
|00006090| 6e 6b 2d 6c 69 6e 65 73 | 20 23 5b 6e 69 6c 20 22 |nk-lines| #[nil "|
|000060a0| 08 ab a3 8c 7e 88 c1 c2 | 78 88 c3 79 88 c4 20 88 |....~...|x..y.. .|
|000060b0| c5 79 88 c6 c7 21 ab 88 | c8 c9 21 c8 ca 21 7c 88 |.y...!..|..!..!|.|
|000060c0| cb cc 08 5c 22 88 29 c2 | 87 22 20 5b 73 63 2d 62 |...\".).|." [sc-b|
|000060d0| 6c 61 6e 6b 2d 6c 69 6e | 65 73 2d 61 66 74 65 72 |lank-lin|es-after|
|000060e0| 2d 68 65 61 64 65 72 73 | 20 22 20 09 5c 6e 22 20 |-headers| " .\n" |
|000060f0| 6e 69 6c 20 31 20 64 65 | 6c 65 74 65 2d 62 6c 61 |nil 1 de|lete-bla|
|00006100| 6e 6b 2d 6c 69 6e 65 73 | 20 30 20 6c 6f 6f 6b 69 |nk-lines| 0 looki|
|00006110| 6e 67 2d 61 74 20 22 5b | 20 09 5d 2a 24 22 20 72 |ng-at "[| .]*$" r|
|00006120| 65 67 69 2d 70 6f 73 20 | 62 6f 6c 20 62 6f 6e 6c |egi-pos |bol bonl|
|00006130| 20 69 6e 73 65 72 74 2d | 63 68 61 72 20 3f 5c 6e | insert-|char ?\n|
|00006140| 5d 20 33 20 28 23 24 20 | 2e 20 32 34 35 35 34 29 |] 3 (#$ |. 24554)|
|00006150| 5d 29 0a 23 40 34 36 20 | 42 75 69 6c 64 20 74 68 |]).#@46 |Build th|
|00006160| 65 20 72 65 67 69 66 72 | 61 6d 65 20 66 6f 72 20 |e regifr|ame for |
|00006170| 6e 75 6b 69 6e 67 20 6d | 61 69 6c 20 68 65 61 64 |nuking m|ail head|
|00006180| 65 72 73 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ers...(d|efalias |
|00006190| 27 73 63 2d 6d 61 69 6c | 2d 62 75 69 6c 64 2d 6e |'sc-mail|-build-n|
|000061a0| 75 6b 65 2d 66 72 61 6d | 65 20 23 5b 6e 69 6c 20 |uke-fram|e #[nil |
|000061b0| 22 c0 89 89 19 1a 1b 0c | c5 61 ab 84 c6 13 aa a0 |".......|.a......|
|000061c0| 0c c7 61 ab 86 c8 12 c9 | 11 aa 95 0c ca 61 ab 86 |..a.....|.....a..|
|000061d0| cb 12 cc 11 aa 8a 0c cd | 61 ac 85 ce cf 0c 5c 22 |........|a.....\"|
|000061e0| 88 d0 5c 6e ad 87 d1 0e | 12 5c 6e c0 d3 24 09 ad |..\n....|.\n..$..|
|000061f0| 84 d4 09 44 43 0b 3f ad | 81 d5 d6 d7 0b ad 84 d8 |...DC.?.|........|
|00006200| 0b 44 43 26 06 2b 87 22 | 20 5b 6e 69 6c 20 6e 6f |.DC&.+."| [nil no|
|00006210| 6e 65 6e 74 72 79 2d 66 | 75 6e 63 20 65 6e 74 72 |nentry-f|unc entr|
|00006220| 79 2d 66 75 6e 63 20 65 | 76 65 72 79 2d 66 75 6e |y-func e|very-fun|
|00006230| 63 20 73 63 2d 6e 75 6b | 65 2d 6d 61 69 6c 2d 68 |c sc-nuk|e-mail-h|
|00006240| 65 61 64 65 72 73 20 61 | 6c 6c 20 28 70 72 6f 67 |eaders a|ll (prog|
|00006250| 6e 20 28 66 6f 72 77 61 | 72 64 2d 6c 69 6e 65 20 |n (forwa|rd-line |
|00006260| 2d 31 29 20 28 73 63 2d | 6d 61 69 6c 2d 6e 75 6b |-1) (sc-|mail-nuk|
|00006270| 65 2d 6c 69 6e 65 29 29 | 20 73 70 65 63 69 66 69 |e-line))| specifi|
|00006280| 65 64 20 28 73 63 2d 6d | 61 69 6c 2d 6e 75 6b 65 |ed (sc-m|ail-nuke|
|00006290| 2d 68 65 61 64 65 72 2d | 6c 69 6e 65 29 20 28 73 |-header-|line) (s|
|000062a0| 65 74 71 20 73 63 2d 6d | 61 69 6c 2d 6c 61 73 74 |etq sc-m|ail-last|
|000062b0| 2d 68 65 61 64 65 72 2d | 6e 75 6b 65 64 2d 70 20 |-header-|nuked-p |
|000062c0| 6e 69 6c 29 20 6b 65 65 | 70 20 28 73 65 74 71 20 |nil) kee|p (setq |
|000062d0| 73 63 2d 6d 61 69 6c 2d | 6c 61 73 74 2d 68 65 61 |sc-mail-|last-hea|
|000062e0| 64 65 72 2d 6e 75 6b 65 | 64 2d 70 20 6e 69 6c 29 |der-nuke|d-p nil)|
|000062f0| 20 28 73 63 2d 6d 61 69 | 6c 2d 6e 75 6b 65 2d 68 | (sc-mai|l-nuke-h|
|00006300| 65 61 64 65 72 2d 6c 69 | 6e 65 29 20 6e 6f 6e 65 |eader-li|ne) none|
|00006310| 20 65 72 72 6f 72 20 22 | 49 6c 6c 65 67 61 6c 20 | error "|Illegal |
|00006320| 76 61 6c 75 65 20 66 6f | 72 20 73 63 2d 6e 75 6b |value fo|r sc-nuk|
|00006330| 65 2d 6d 61 69 6c 2d 68 | 65 61 64 65 72 73 3a 20 |e-mail-h|eaders: |
|00006340| 25 73 22 20 61 70 70 65 | 6e 64 20 72 65 67 69 2d |%s" appe|nd regi-|
|00006350| 6d 61 70 63 61 72 20 73 | 63 2d 6e 75 6b 65 2d 6d |mapcar s|c-nuke-m|
|00006360| 61 69 6c 2d 68 65 61 64 | 65 72 2d 6c 69 73 74 20 |ail-head|er-list |
|00006370| 74 20 22 5e 5c 5c 53 20 | 2b 3a 2e 2a 24 22 20 28 |t "^\\S |+:.*$" (|
|00006380| 28 22 5e 5b 20 09 5d 2b | 22 20 28 73 63 2d 6d 61 |("^[ .]+|" (sc-ma|
|00006390| 69 6c 2d 6e 75 6b 65 2d | 63 6f 6e 74 69 6e 75 61 |il-nuke-|continua|
|000063a0| 74 69 6f 6e 2d 6c 69 6e | 65 29 29 29 20 28 28 62 |tion-lin|e))) ((b|
|000063b0| 65 67 69 6e 20 28 73 65 | 74 71 20 73 63 2d 6d 61 |egin (se|tq sc-ma|
|000063c0| 69 6c 2d 6c 61 73 74 2d | 68 65 61 64 65 72 2d 7a |il-last-|header-z|
|000063d0| 61 70 70 65 64 2d 70 20 | 6e 69 6c 29 29 29 20 28 |apped-p |nil))) (|
|000063e0| 28 65 6e 64 20 28 73 63 | 2d 6d 61 69 6c 2d 63 6c |(end (sc|-mail-cl|
|000063f0| 65 61 6e 75 70 2d 62 6c | 61 6e 6b 2d 6c 69 6e 65 |eanup-bl|ank-line|
+--------+-------------------------+-------------------------+--------+--------+